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The purpose of this manual is to provide technical reference material for 
the Xerox 820-11 and 16/8 Professional Computers for programmers and 
engineers involved in hardware, software, and interface design. It is also 
intended for interested persons who have a desire to know how the 
Xerox 820-II and 16/8 operate and how to access their many features. 

A list of the abbreviations and naming conventions used in this manual 
can be found in Appendix N. 



SYSTEM OVERVIEW 

The modular design of the 820-II and 1 6/8 systems enhance the flexibility 
provided by the operating systems. The combination of-operations 
provided by the system gives it a flexibility that allows it to be tailored to 
the needs of each user. 
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Code Charts 




• Baud Rates 




• Decimal to ASCII to Hex 


L. 


Additional References 


M. 


Contacts/reference: 




• Diablo 




• Digital Research 




• Microsoft 




• Shugart 
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Abbreviations 



K1 

K2 

L1-L2 

M1-M2 



N1-N2 



Overview of Xerox Personal Computers 

Xerox Personal Computers are comprised of four components: 
display/processor, disk drives, keyboard, and optional printers. Both the 
820-11 and 16/8 use the CP/M®-80 2.2 Operating System from Digital 
Research, Inc. Additionally, the 16/8 PC includes CP/M-86® 1.1 and MS-- 
DOS Version 2.0 as standard operating systems. 

HARDWARE DESCRIPTION 
System Board 

The system board uses a Zilog Z80-A®-based microprocessor operating on 
a 4 megahertz clock with 64k RAM and 8k ROM. It is a single-board 
computer and uses a daughter board to interface with the disk drives. 
The 820-11 is equipped with three user-accessible I/O ports. Two of the 
ports are located on the back of the display/processor; the third is 
located on the CPU board. On the back are the printer and the 
communications ports (both RS232C). The port inside the display is a 
dual parallel port (most printers and other devices that follow a standard 
Centronics 36-pin interface can be successfully attached). 

The 1 6/8 has all of the above features as well as an Intel 8086 lE) -based 
microprocessor operating with a 4.772 megahertz clock. The 8086 is 
equipped with 128k of RAM which is expandable to 256k total by 
adding a 128k daughter board to the 8086 board. 

The 820-II and 16/8 are capable of having up to 8k of read only memory 
(four 2k ROMs): the 820-tl has 6k of this 8k occupied; the 16/8 uses the 
full 8K. The last 2k on the 16/8 is used for decoding the position-encoded 
Low Profile Keyboard. The firmware contained in the ROM is capable of 
doing such things as executing a one-sector loader from disk; i.e., 
loading CP/M, emulating a terminal, operating in typewriter mode, etc. 
The monitor also has other commands that are useful for debugging 
hardware and software. The mother board also contains a speaker as 
well as an expansion slot (used by the 16/8 for the 8086 board). There are 
two types of daughter boards: one interfaces the display/processor to 
floppy disks and the other interfaces the display/processor to a rigid disk 
controller. 
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Display 

The display/processor houses the video display, the CPU mother board, 
the disk drive daughter board, and the 8086 processor board if so 
configured. The video display is a standard 24 line by 80 characters. It 
uses a 7 x 10 dot matrix for each character in all text modes and displays 
white characters on a black screen. For graphics characters, it uses a 4 x 4 
pixel resolution. The display attributes can be changed to display either 
in blink, highlight/lowlight, inverse, or graphics characters. 



820-II Display/processor for floppy disks 
820-II Display/processor for rigid disk 
16/8 Display/processor for floppy disks 
16/8 Display/processor for rigid disk 



Product Code #1103 
Product Code #U05 
Product Code #H69 
Product Code #H70 



Keyboards 

The 820-11 and 16/8 use either a standard 96-character ASCII or Low 
Profile keyboards. Both keyboards include additional keys to the right 
of the keyboard, a 10-key numeric key pad and a set of keys for software 
control of the cursor. The low profile keyboard also includes 12 function 
keys that can be software-enabled and other keys such as Accept, 
Delete, Next, Previous, Home, and Undo. 



ASCII Keyboard 
Low Profile Keyboard 



Product Code #X928 
Product Code #625 



Disk Drives 

Five disk drive options are offered for the 820-I 
Dual 5i" single-sided floppy disk drives 
Dual 5V double-sided floppy disk drives 
Dual 8" single-sided floppy disk drives 
Dual 8" double-sided floppy disk drives 
One 10mb rigid disk drive with 
an 8" double-sided disk drive 



Product Code #X929 
Product Code #T66 
Product Code #X973 
Product Code #F10 
Product Code #U07 



Three disk drive options are offered for the 16/8: 

Dual 8" single sided floppy disk drives Product Code #X973 

Dual 8" double sided floppy disk drives Product Code #F10 
One 10mb rigid disk drive with Product Code #U07 

an 8" double sided disk drive 



Printers 

40 CPS Printer and 20 CPS Printer 

As their names imply, the printers have a printing speed of 20 and 40 
characters per second (CPS) respectfully. Both printers have a wide range 
of print styles available. The 20 CPS Printer supports 10, 12, and 15 pitch 
as well as Proportional Spacing (PS), while the 40 CPS Printer supports 
either metal or plastic printwheels in 10, 12, 15, and PS. More detailed 
information on these printers can be found in the Printer section under 
Peripherals. 

The standard RS232C printer connector and dual parallel port are 
available tointerface with many types of serial and parallel printers. 

40 CPS Printer Product Code # D80 

20 CPS Printer Product Code # U01 



FUNCTIONAL DESCRIPTION 

The 820-II and 16/8 systems are a collection of four components working 
in unison - the display, keyboard, disk drives, and printer. The 
computer itself is housed in the display. 

System Monitor - ROM 

The system monitor contained within the 8k ROM controls the essential 
functions of initializing and controlling all system input/output 
resources, and also provides a number of monitor commands that can 
be used to assist in, programming. 

Ports 

Three ports are standard on the 820-II and 16/8: two serial ports located 
at the back of the display unit and an additional dual parallel port inside 
the display unit These allow printers, communication devices, and 
other peripheral equipment to be interfaced with the system. 

Operating Systems 

The 820-II uses Digital Research's 2.2 CP/M-80 Operating System. The 
16/8 can use Digital Research's 2,2 CP/M Operating System, as well as 
their CP/M-86 1 . 1 Operating System and Microsoft's MS-DOS 2.0 
Operating System. These operating systems provide the user with a 
general environment for program construction, storage, and editing, 
along with assembly and program checkout facilities. 
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CP/M-80 operating system software as implemented on the 820-11 and 
the 1 6/8 is logically divided into four parts: 

ROSR ROM Operating System Routines (hardware dependent) 

BIOS Basic I/O System (hardware dependent)* 

BDOS Basic Disk Operating System* 

CCP Console Command Processor* 

*Disk resident portions of CP/M-80 

ROSR provides code in ROM that can be executed without the presence 
of the CP/M system disk and provides the primitive operations necessary 
to access the disk drives and to interface with peripherals. 

BIOS provides the interface between BDOS and ROSR. 

BDOS provides disk management by controlling one or more disk drives 
containing independent file directories. 

CCP provides symbolic interface between the user's console and the 
remainder of the CP/M system. 



HARDWARE INTERFACE 

The 820-II and 16/8 are equipped with six input/output connectors. Four 
are on the back of the display unit and two are inside the display. 

Disk Drive 

Used for connection of either the 8" or the 5^" Dual Floppy Drives, or 
the 8" Rigid Disk Drive. This is determined by the type of disk daughter 
board installed in the display processor. 

Keyboard 

Used for connection of either the ASCII or Low Profile keyboard. 

Printer 

A serial printer can be attached to this RS-232-C connector. 

COMM 

COMM is a Second RS-232-C connector and can be used for a modem. 
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Parallel Port 

A dual parallel port inside the display cabinet is also provided. 

Expansion Slot 

The expansion slot inside the display cabinet provides all of the Z80-A 
microprocessor control signals for connection to custom devices for 
future expansion. This slot is used for the 8086 co-processor if you have 
a 16/8. 



CP/M-80 



The CP/M-80 2.2-C disk for the 820-11 contains the standard Digital 
Research software development and checkout programs. Xerox issues 
additional utility programs that are unique to the 820-11. A description of 
each program is listed below: 



Digital Research 

ASM.COM . 

DDT.COM 
DUMP.COM 



ED.COM 
L80.COM 

LOAD.COM 
M80.COM 



MOVCPM.COM 

PIP.COM 

STAT.COM 

SUBMIT.COM 



Files 



The Assembler allows you to create a program 

which can be read and executed by the 820-11. 

The Dynamic Debugging Tool is used to debug a 

Z80-A assembly language program. 

Allows binary command files that are not displayed 

on screen to be displayed showing the hexadecimal 

value for each byte. 

A line-oriented screen editor. 

Reads an .REL file created with the Macro-80 

Assembler Program and outputs a command file. 

Reads a .HEX file and creates a command file. 

Converts a program written in Assembly Language 

to a relocatable (.REL) file and (optionally) a printer 

listing file (.PRN). 

Lets you modify and move the CP/M system image to 

allocate a specific lesser memory size. 

Allows you to selectively copy a file or files from one 

disk to another or on the same disk. 

The status utility is a frequently-used transient 

command for all system housekeeping; i.e., 

checking the amount of space available on a disk. 

Used to submit a file of commands for batch 

processing. 
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SYSGEN.COM Used to generate a CP/M-80 system image and copy 

the operating system to another disk. 

XSUB.COM Same as Submit.com, but has the facility to include 

line input to programs as well as the console 
command processor. 



Xerox Files 
BACKUP.COM 



C0NFIGUR.COM 



A multi-option utility that allows you to archive and 

retrieve files, delete files, list directories of any 

drive, and to verify data integrity of a floppy or rigid 

disk. 

Using Configur.com, you can select seven different 

options: 

1 . Record Restart Command - lets you enter a one- 
line command which will automatically load a 
program. For example, you could enter DIR as 
the restart command and every time you boot 
the system, it will automatically display the 
directory for you. Or you could enter the name 
of your application software package and it 
would automatically load that application 
package for you. This command is recorded on 
the disk and you can have a different one for 
each disk. 

Select Printer Port Options - allows you to 
determine printer protocol. This option allows 
configuration for alternate printers without 
modifying the BIOS. 
Select Communications Port Options - a 
convenient method for setting up the 
communications port on the 820-II or 1 6/8; that 
is, baud rate, protocol, stop bits, .etc. 
Select I/O Device Assignments - lets you select 
alternative input/output device assignments; 
i.e., set up the system so that everything 
displayed on the screen automatically prints on 
the printer. 

Select Keyboard Data Format - lets you choose 
7-bit or 8-bit mode for the keyboard. 
Select Screen Attributes - includes blink, inverse 
video, highlight/lowlight, and graphics modes. 



2. 



4. 



5. 



6. 
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C0PY.COM 
FMT.COM 



HELP.COM 

INIT.COM 
KILLESC.COM 

SET.COM * 
SWAP.COM 



TiME.COM 



WHATSA.COM 



7. If you have a floppy disk system, Select Floppy 
Disk Head Step Rate will appear as selection 7. If 
you have a rigid disk system, Configure Rigid 
Disk will appear (program must be loaded from 
floppy or the first partition of the rigid). 

a. Select Floppy Disk Head Step Rate - lets you 
adjust the floppy head step ra\e for 
optimum performance. 

b. Configure Rigid Disk -. lets you divide the 
eight megabyte rigid disk into sections 
(e.g., 4 Mb, 2 Mb, 1 Mb, 1 Mb). 

Makes an exact copy of a disk, track for track. 
Allows you to format (initialize) a rigid disk. 
Verification of the rigid disk is performed using the 
Backup.com utility. 

A guide for CP/M-80 users that contains basic 
information about CP/M-80 commands; also cross- 
references to additional information in the CP/M-80 
reference manual, Reorder #9R80448. 
Prepares new (or used) disks for storing 
information. It will also alert the user to any flawed 
sectors on the disk. 

Turns off the <CTRL> + <ESC> feature to enable 
useof<CTRL> + <ESC> for other purposes; for 
example, setting margins and tabs on a 40 CPS 
printer uses a <CTRL> + <ESC> sequence. 
A convenient method to temporarily change 
communication and printer port options in RAM. 
A utility that allows the user to swap drive names. 
For example, "A" and "E" for a rigid disk drive. By 
designating an alternate drive as the "A" drive, you 
can load software directly from that drive. Many 
CP/M-80 application packages have been written to 
be executed from the "A" disk drive only. Using 
Swap.com allows you to place your application 
software on any disk drive and load. 
Displays the time and date on screen. Since there is 
no battery backup, however, you must re-enter the 
time and date each time you reload the system. 
This utility lists the logical and physical names for 
each disk drive, as well as the density, number of 
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sides, and types of disks logged into the system, 
(e.g., double density, single-sided 8" floppy). 



CP/M-86 



The CP/M-80 2.2 and CP/M-86 1.1-F disks for the 16/8 contain the 
standard Digital Research software development and checkout 
programs. These disks contain the same files as described in the CP/M-80 
section as well as the following files. 



Digital Research 

ASM86.CMD 

DDT86.CMD 

ED.CMD 
GENCMD.CMD 

GENCMD.COM 

GENDEF.CMD 



Files 



GENDEF.COM 



HELP.CMD 



LMCMD.CMD 



LMCMD.COM 



PIP.CMD 



The Assembler allows you to create a program 

which can be read and executed by the 8086. 

The Dynamic Debugging Tool is used to debug a 

8086 assembly language program. 

A line-oriented screen editor. 

Uses the hex output of ASM-86 and other language 

processors to produce a .CMD file. 

Uses the hex output of ASM-86 and other language 

processors to produce a .COM file. 

Reads a 16-bit file containing the disk definition 

statements, and produces a 16-bit output file 

containing assembly language statements which 

define the tables necessary to support a particular 

drive configuration. 

Reads a 1 6-bit file containing the disk definition 

statements, and produces an 8-bit output file 

containing assembly language statements which 

define the tables necessary to support a particular 

drive configuration. 

Provides summarized information for all of the 

CP/M-86 commands described in the Digital 

Research Users manual. 

Operates in exactly the same manner as 

Gencmd.cmd, except Lmcmd also accepts an Intel L- 

modulefile as input. 

Operates in exactly the same manner as 

Gencmd.com except Lmcmd also accepts an Intel L- 

module file as input. 

Allows you to selectively copy a file or files from one 

disk to another or on the same disk. 
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STAT.CMD 

SUBMIT.CMD 
TOD.CMD 



The status utility is a frequently-used transient 
command for all system housekeeping, i.e., 
checking the amount of space available on a disk. 
Used to submit a file of commands for batch 
processing. 
Time of day. 



Xerox Files 

CPM86.COM 

86CON.COM 

GOBACK.CMD 

LOAD86.COM 

REB00T.COM 

S0FTKEYS.COM 



Used by Load86.com to boot the 8086. 
Switches from Z8Q-A console to the 8086 console. 
Switches from 8086 console to the Z80-A console. 
Loads the 8086 for concurrent processing. 
From the concurrent mode, reboots the system as a 
Z80-A standalone. 

Used to set up the 10-key pad with programmable 
functions (< CTRL > + one of the 10-key pad keys). 



MS-DOS 

The MS-DOS 2.0 disk for the 16/8 contains the standard Microsoft 
software development and checkout programs. 



Microsoft Files 

ANSI.SYS 

C0MMAND.COM 



CONFIG.SYS 

CHKDSK.COM 

CREF.EXE 

DEBUG.COM 

DISKC0PY.COM 

EDLIN.COM 

EXE2BIN.EXE 

FC.EXE 

FIND.EXE 

F0RMAT.COM 

LINK.EXE ' : 

M0RE.COM 



Allows programs that use the standard ANSI driver 

to be executed. 

This is the MS-DOS command processor. It is 

recommended that this file be placed on every 

application program disk. 

Configures system at boot. 

Checks disk. 

Assists in debugging assembly language programs. 

Debugger supplied with MS-DOS. 

Copies a disk. 

Line-oriented screen editor. 

Converts .EXE files to binary format. 

Compares two files for similarity. 

Finds a string in a list of files or standard input. 

Formats an 8" floppy or a rigid disk. 

Linker. 

Used to display text in 23-line segments. 
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MASM.EXE 
PRINT.COM 
RDCPM.COM 

REC0VER.COM 
S0RT.EXE 



Macro Assembler for MS-DOS. 
Print spooler. 

Reads a CP/M-80 file and converts data to MS-DOS- 
readable file. 

Recovers bad or damaged disks. 
Used to sort text. 



Xerox Files 
SAMPLE.TXT 



Provided to assist going through MS-DOS 
Handbook. 
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Specifications 

This section details the following specifications: dimensions, electrical 
requirements, operating environment, and disk drive capacities of the 
Xerox 820-11 and 16/8 PCs. 



Dimensions 










Equipment 


Height 


Depth 


Width 


Weight 


820-11-16/8 Display 


12.20" 


14.75" 


15.00" 


30 lbs. 


ASCII keyboard 


3.75" 


9.50" 


20.00" 


10 lbs. 


Low profile keyboard 


1.60" 


8.25" 


19.90" 


5 lbs. 


5-J-" Floppy disk drives 


7.00" 


10.20" 


7.00" 


10 lbs. 


8" Floppy disk drives 


10.50" 


17.50" 


14.50" 


48 lbs. 


8" Rigid disk drive 


10.50" 


17.50" 


15.50" 


54 lbs. 


40 CPS printer 


10.00" 


17.50" 


15.50" 


56 lbs. 


20 CPS printer 


9.25" 


17.50" 


24.00" 


45 lbs. 



Electrical Requirements 

All Xerox products listed below require voltage of 1 1 5 VAC, a frequency 

of 60 Hz, and a two-pole, three-wire grounded duplex receptical. 



Equipment Current 

820-11-16/8 Display 1.1 Amps 

8" Floppy disk drives 2.0 Amps 

8" Rigid disk drive 2.2 Amps 

40 CPS printer 2.0 Amps 

20 CPS printer 1.0 Amp 



Operating Environment 

All Xerox equipment is tested to perform between 50 and ■". 
90 degrees Fahrenheit with a relative humidity factor between 
20% and 80%. 
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Disk Drive Storage 


Unformatted 


Formatted 


Usable 


5±" SS/SD 


125k 


90 k 


81k 


5i" SS/DD 


250 k 


168 k 


155k 


5*" DS/SD 


250 k 


180 k 


172 k 


5i" DS/DD 


500 k 


338 k 


322 k 


8" SS/SD 


400 k 


250 k 


241 k 


8" SS/DD 


800 k 


497 k 


482 k 


8" DS/SD 


800 k 


500 k 


490 k 


8" DS/DD 


1.6 Mb 


997 k 


980 k 


8" Rigid (DS/DD) 


10.67 Mb 


8.4 Mb 


8.192 Mb 



Disk Drive Format 






Bytes 
per 


Numbe 
of 


Equipment 


Tracks 


Sectors 


Sector 


Heads 


5i" SS/SD 


40 


18 


128 


1 


5*" SS/DD* 


40 


17 


256 


1 


5i" DS/SD 


80 


18 


128 


2 


Si" DS/DD* 


80 


17 


256 


2 


8" SS/SS 


77 


26 


128 


1 


8" SS/DD** 


77 


26 


256 


1 


8" DS/SD 


154 


26 


128 


2 


8" DS/DD** 


154 


26 


256 


2 


8" Rigid DS/DD 


1,024 


32 


256 


4 



*Track of 5i" double density disks has 18 sectors of 128 bytes. 
**Track of 8" double density disks has 26 sectors of 128 bytes. 



For more specific information on disk formats, see the Disk Drive 
Specifications section. 
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DISPLAY SPECIFICATION 



SIZE 


1 2 inch, landscape mode 


TYPE 


Aluminized P4 




Fluorescence White (W) 




Phosphorescence White (W) 




Persistence Short 


RESOLUTION 


• 240 active line raster adjusted to 8.5 x 5.3 




inch usable area 




• Brightness level 30 ( ± 2) foot-lamberts 




• Resolution at centers (within 1 " diameter 




circle) -100 lines/inch minimum 


CHARACTER CELL: 


7x10 


BUSINESS GRAPHICS 


4x4 Pixel Resolution 


CHARACTER SET 


4 sets of 128: (1 U.S. font, 1 Graphics 




font) (1 U.S. font, Inverse 




Video font) 


CHARACTER LINES 


24 


CHARACTERS/LINE 


80 


VOLTAGE 


+ 1 2 ( ± 5.0%) VDC at 2.0 A DC maximum 


RIPPLE 


50 MV P-P synchronous or nonsynchronous 




with refresh or power frequency. 


VIDEO BIT RATE 


10.694 MBPS (93.51 nanoseconds) 


BITS/HORZ LINE 


560 


HORZ SYNC PULSE 


126 (11.78 microseconds) 


TOTAL BITS/LINE 


686 


HORZ RATE: 


1 5. 59 KHz (64. 1 4 mi croseconds) 


LINES/FIELD 


: 240 


/ERT BLANKING LINES 


20 


VERT SYNC PULSE 


20(1.28 milliseconds) 


VERT RETRACE (lines) 


8TYP 


TOTAL LINES/FIELD 


: 260 


FIELD RATE 


59.95 Hz (16.68 milliseconds) 


REFRESH RATE. 


61 Hz 


VIDEO RATE 


15 MHz 
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FUNCTIONAL DESCRIPTION. XEROX DISPLAY 

The display has the following functional characteristics: 

• 24 line display 

• 80 characters per line 

• 7x10 dot matrix per character 

• White characters on black 

• Software-selectible character attributes 

Inverse Video 
- Blink 

Low Intensity 

Graphics with 4 x 4 pixel resolution 

• Brightness adjust 

DISPLAY CONTROLLER 

The Display Controller is based on displaying characters within a 7x10 cell 
(7 dots horizontally by 10 scan lines vertically). To guarantee spaces 
between characters, one dot on each side of the cell is blanked by 
hardware. Also, to guarantee spaces between character lines, the top 
two scan lines are blanked by hardware. This gives an actual active 
character size of 5 dots horizontally by 8 scan lines vertically. 

For Business Graphics, the hardware is configured to eliminate the 
automatic blanking and allow continuous lines both horizontally and 
vertically. However, the Display Controller is still based on displaying a 
character within a 7 x 10 cell. The controller design and available refresh 
memory allows one byte per character. The maximum number of unique 
characters that can be defined by any 8 bits is 256. Since the standard 
text font set contains 128 characters, the limit on unique characters for 
graphics that can be displayed together with text is 1 28. 

The character set for Business Graphics divides the cell into blocks of 4 
dots horizontally by 4 scan lines vertically. Since the total number of scan 
lines per character is 10, the character set actually consists of two sub-sets 
of 4-4-2 and 2-4-4. 

Each subset divides the cell into 6 parts requiring 64 possible 
combinations or unique characters. Therefore, the total number of 
unique characters for the complete graphics set is 1 28. With this 

16 Miscellaneous Hardware Information 



character set, any combination of adjacent 4x4 blocks can be chosen. 
Also, at the character cell boundary, the 4x4 blocks can be set vertically 
by 2 scan lines. Since the total number of horizontal dots per cell is 7, 
there will be an overlap of one horizontal dot in the center of the cell for 
diagonal blocks within the cell. 

It should be also noted that for the standard text font containing 1 28 
unique characters defined by 7 bits, the eighth bit is used to set the 
attribute function. For Business Graphics, since both text characters and 
graphic characters can be displayed simultaneously, it requires all 8 bits 
to define the character. Consequently, display attributes are not 
available in graphics mode. 
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SYSTEM BUS EXPANSION SLOT 

ELECTRICAL 

The DC system power available at the expansion slot is as follows: 

5£" system 8" or Rigid system 
PIN 50 + 5VDC 1.2A 2.1 A 

PIN 45 + 12VDC#1 0.3A 1.75 A 



ENVIRONMENTAL 

The following temperature, humidity and altitude environmental 
requirements are specified: 

Temp. Rel.Hum. Altitude 

("Celsius) (%) (miles) 

Operating 10 to 32 20 to 80 1830 

Non-operating -77 to 66 15 to 90 7620 

Any optional or additional electronic assembly using the expansion slot 
must be capable of performing to design specification when the host is 
subjected to the environmental range, above. Furthermore, the 
presence of such an assembly in the expansion slot must not degrade 
performance with regard to the above environmental requirements. 
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HARDWARE INTERFACE 



MONITOR 



VERT PR 



HQR? oq 



VIDEO 



KEYBOARD 



T 15 

+ 13 

+ u 
-{- 11 

-f 9 
10 

7 



X 

I 



■ PBQ 



jb&l. 



DB2 



PP3 



PP1 



DB7 



MAIN PWA 



!! 



+ 



J3 

I 



J4 



GND 

TRAN DATA 



REQ TO SEND 



CLEAR TO SENO~ 
EMMEIEZ 



"DATA » 



CARRIER C 



DATA TERMINAL READY 



P4 



_1 ' 9" AS . SIS GND 



I TRAN OATA 
! figCDAtA 



REQ TO SEND 



CLEAR TO SEND 
DATA SET R"E~ADV 



SIG GND 



CARRIER, PETSCT 



TRAN SIG EL TIMING 



REC SIG EL TIMING 



DATA TERMINAL READY 



SERIAL 
PRINTER 
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J1 illustration 




10 SAI004 DHIVfc ONLY 



on 
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J8 illustration 



820- 1 1 



J8 

30 

6 

— a 

— 10 
—-12 

— 14 

— 16 

— 18 
—20 
—40 

— 34 

— 38 

— 26 

— 37 

— 5 

— 9 

— 11 
13 

— 15 

— 17 

19 

—21 

— 3 
-—35 

— 39 

— 28 



P8 



PB2 


DATA STROBE 


PAO 


DATA BIT 


PA1 


DATA BIT 1 


t 3 A2 


DATA BIT 2 


PA3 


DATA BIT 3 


PA4 


DATA BIT 4 


PA5 


DATA BIT 5 


PA6 


DATA BIT 6 


PA7 


DATA BIT 7 


PB7 


ACKNOWLEDGE J 


PB4 


BUSY . 


PB6 


ON LINE 


PBO " 


AUTO LF ] 


GND. 


GND. 


GND. ] 


GND. 


GND. 


GND. ; 


GND. ; 


GND. 


GND. 


GND. 


GND. 


GND. 


GND. 


GND. 


GND. 



PARALLEL 
PRINTER 



2 — 

5 — 

6 — 

8 — 

9 — 

io- 
n- 
is 

14 — 
16 

19 — 

20 — 

21 — 

22 

23 

24 

25 

26 — 
27— 

28. 

29— 
30— 
33 — 
36 — 
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Power Supplies, and Video Connectors 



SI 

ACt - 1»*2_ 



POWER 
SUPPLY 



~" > 



3 — o\J>- r 

1 25A I 



-2 , H3W 



SYSTEM <?NP 



J 



-Lioi- 



♦ 12VDC(CPU)t , i 



— e 1 GND 



12VDC(DISK){ 3 



-4-5-L 



»12VDC(CRT) T I 
+ SVOC 



7' 3 -r 
las J- 



iSli 



so j; 



BRIGHTNESS 
CONTROL 



J1 
T 7 T 



MONITOR 

PWA 
PI 



EffcH- 

I La J L 4 -L 




.?? 



Miscellaneous Hardware Information 



39 



40 



Parallel Port Connector (J8) 



oooooooooooooooooooo 
oooooooooooooooooooo 



J8 



Pin 


Value 


2 


Port A Strobe 


4 


Port A Ready 


6 


Port A Bit 


8 


Port A Bit 1 


10 


PortABit2 


12 


PortABit3 


14 


Port A Bit 4 


16 


Port A Bit 5 


18 


Port A Bit 6 


20 


Port A Bit 7 


22 


Port B Ready 


24 


Port B Strobe 


26 


Port B Bit 


28 


Port B Bit 1 


30 


Port B Bit 2 


32 


Port B Bit 3 


34 


Port B Bit 4 


36 . 


Port B Bit 5 


38 


Port B Bit 6 


40 


Port B Bit 7 


#Pins 


Ground 
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Parallel connecter picture 



GROUND WIRE ^ x |£> 



r^^^^-- FIRST PLUG 
(not used) 




SECOND PLUG 



J8 PRINTER PORT 
INSIDE 820 
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COMM Port Strapping Options 

39 1 
oooooooooooooooooooo 
oooooooooooooooooooo 

40 2 



J9 



Pin 


Value 


5--6 


(M) TXD to Pin 3 


7-8 


(T)TXDtoPin2 


9-- 10 


(M) RXD from Pin 2 


11-12 


(T) RXD from Pin 3 


13-14 


(M)RTStoPin5 


15-16 


(T)RTStoPin4 


17-18 


(M) CTS from Pin 4 


19-20 


(T)CTSfromPin5 


21-22 


(M) DTR to Pin 8 


23-24 


(T) DTR to Pin 20 


25-26 


(M) DCD from Pin 20 


27-28 


(T) DCD from Pin 8 


29-30 


Clock supplied to Modem as RX Clock 


31-32 


Clock supplied to SIO with RX Clock 


33-34 


Modem supplies SIO with RX Clock . 


35-36 


Clock supplied to SIO with TX Clock 


37-38 


Modem supplies SIO with TX Clock 


39-40 


Clock supplied to Modem with TX Clock 



The filled-in pins indicate the options as they are jumpered on an 820-II 
or 16/8. 

Note: (M) indicates modem (data communications equipment) 

function. (T) indicates terminal data equipment) function. 
For instance, exercising the (M) strap option will allow 
communication with a modem; exercising the (T) strap 
option will allow communication with a terminal. 
The above shows factory settings for (T). 



*s ^i„„ 7q 





J9 (Etch 2 CPU) 


29 


1 


ooooooooooooooo 


ooooooooooooooo 


30 


2 


Pin 


Value 


3-4 




5-6 


(M)TXDtoPin3 


7-8 


(T)TXDtoPin2 


9--10 


(M) RXD from Pin 2 


11-12 


(T) RXD from Pin 3 


13-14 


(M) RTS to Pin 5 


15-16 


(T) RTS to Pin 4 


17-18 


(M)CTSfromPin4 


19-20 


(T) CTS from Pin 5 


21-22 


(M) DTR to Pin 8 


23-24 


(T)DTRtoPin20 


25-26 


(M) DCD from Pin 20 


27-28 


(T) DCD from Pin 8 


29-30 


Clock supplied to Modem as RX Clock 



The f illed-in pins indicate the options as they are jumpered on an 820-II 
or 16/8. 

Note: To change from ASYNC to SYNC on the Etch 2 CPU requires a 
modification to the operating system rather than moving jumpers. 

Note: (M) indicates modem (data communications equipment) 

function. (T) indicates terminal data equipment) function. 
For instance, exercising the (M) strap option will allow 
communication with a modem; exercising the (T) strap 
option will allow communication with a terminal. 
The above shows factory settings for (T). 
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System Bus Connector 






J13 




D1 


1 


2 


/RD 


DO 


3 


4 


/MEMRQ 


D7 


5 


6 


/IORQ 


. D2 


7 


8 


/WR 


D6 


9 


10 


/REFRESH 


D5 


11 


12 


/M1 


D3 


13 


14 


A0 


D4 


15 


16 


A1 • 


SYSRESET 


17 


18 


A2 


A4 


19 


20 


A3 


A6 


21 


22 


A5 


A15 


23 


24 


A7 


A13 


25 


26 


A14 


A12 


27 


28 


A10 


A9 


29 


30 


A11 


A8 


31 


32 


/BUSRQ 


WAITRQ 


33 


34 


/BUSAK 


PCI 


35 


36 




/INTRQ 


37 


38 




/HALT 


39 


40 


/CLOCK 


SPKR 


41 


42 


/MEM8 




43 


44 


/MEM4 


+ 12V 


45 


46 




+ 12V 


47 


48 


GND 


GND 


49 


50 


+ 5V 



a *: - -~ii ~ M ^* 
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Pin 


Pin 


Symbol 


# 


Name 


DO 


3 


Data bus 


D1 


1 


Data bus 


D2 


7 


Data bus 


D3 


13 


Data bus 


D4 


15 


Data bus 


D5 


11 


Data bus 


D6 


9 


Data bus 


D7 


5 


Data bus 


AO 


14 


Address bus 


A1 


16 


Address bus 


A2 


18 


Address bus 


A3 


20 


Address bus 


A4 


19 


Address bus 


A5 


22 


Address bus 


A6 


21 


Address bus 


A7 


24 


Address bus 


A8 


31 


Address bus 


A9 


29 


Address bus 


A10 


28 


Address bus 


All 


30 


Address bus 


A12 


27 


Address bus 


A13 


25 


Address bus 


A14 


26 


Address -bus 


A15 


23 


Address bus 


/WR 


8 


Write • 



/RD 



/IORQ 



Read 



I/O Request 



Meaning 

Data Bus (Tri-state, input/output, 
active high) cbnstitutes an 8-bit 
bi-directional data exchange 
with memory and I/O devices. 



Address Bus (Tri-state, output, 
active high) makes up a 16-bit 
address for up to 65k bytes of 
memory for I/O devices data 
exchange. I/O addressing uses 
the lower 8 bits for direct 
selection of up to 256 output 
ports. AO is the least significant 
address bit. During refresh time, 
the lower 7 bits contain a valid 
refresh address for dynamic 
memories. • 



Write (Tri-state, output, active 
low) indicates that the CPU data 
bus holds valid data to be stored 
in the addressed memory or I/O 
device. 

Read (Tri-state, output, active 
high) indicates that the CPU 
wants to read data from memory 
or an I/O device. The addressed 
I/O device or memory should use 
this signal to gate data onto the 
CPU data bus. 

Input/Output Request (Tri-state, 
output, active low) signal 
indicates that the lower half of 



->ft 
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/HALT 39 Halt 



/MEMRQ 4 



Memory 
Request 



/REFRESH 10 



Refresh 



/M1 



12 Machine 

Cycle One 



the address bus holds a valid I/O 
address for an I/O read or write 
operation. This signal is also 
generated with a "/Ml" signal 
when an interrupt is being 
acknowledged to indicate that an 
interrupt response vector can be 
placed on the data bus. Interrupt 
Acknowledge operations occur 
during "/Ml" time, while I/O 
operations never occur during 
"/Ml" time. . 

Halt (Output, active low) signal 
indicates that the CPU has 
executed a Halt Software 
instruction and is awaiting either 
a non-maskable or maskable 
interrupt before operation can 
resume. 

Memory Request (Tri-state, 
output, active low) signal 
indicates that the address bus 
holds a valid address for a 
memory read or memory write 
operation. 

Refresh (Tri-state, output, active 
low) indicates that the lower 7 
bits of the address contain a 
refresh address for dynamic 
memories and the "/MEMRQ" 
signal should be used to perform 
a refresh cycle for all dynamic 
RAMs in the system. During the 
refresh cycle "A7" is a logic zero 
and the upper 8 bits of the 
address bus contain the "I" 
register. 

Machine Cycle One (Tri- 
state, output, active low) 
indicates that the current 
machine cycle is in the op-code 
fetch cycle of an instruction. Note 
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/BUSAK 



34 



Bus 
Acknowledge 



/BUSRQ 32 



Bus Request 



/INTRQ 



37 



Interrupt 
Request 



AA/AITRQ 33 



Wait Request 



that during the execution of two- 
byte op-codes, "/Ml" will be 
generated as each op-code is 
fetched. These two-byte op- 
codes always begin with a CB, DD, 
ED, or FD. 7M 1 " also occurs with 
"/lORQ" to indicate an interrupt 
acknowledge cycle. 
Bus Acknowledge (Output, 
active low) is used to indicate to 
the requesting device that the 
CPU address bus, data bus, and 
control bus signals have been set 
to their high impedance states 
and the external device can now 
control the bus. 
Bus Request (Input, active low) 
signal is used to request the CPU 
address bus, data bus, and control 
signal bus to go to a high 
impedance state so that other 
devices can control those buses. 
When "/BUSRQ" is activated, the 
CPU will set these buses to a high 
impedance state as soon as the 
current CPU machine cycle is 
finished and the "/BUSAK" signal 
is activated. 

Interrupt Request (Input, 
active low) signal is generated by 
I/O devices. A request will be 
honored at the end of the current 
instruction if the internal 
software controlled interrupt 
enable flip flop (IFF) is enabled 
and if the "/BUSRQ" signal is not 
active. 

Wait Request (Input, active low) 
indicates to the CPU that the 
addressed memory or I/O device is 
not ready for a data transfer. The 
CPU continues to enter wait states 
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/SYSREST 17 



/CLOCK 40 



PCI 



35 



/MEM4 



/MEM8 



/SPKR 



for as long as this signal is active. 
This signal allows memory or I/O 
devices of any speed to be 
synchronized to the CPU. Use of 
this signal postpones refresh as 
long as it is held active. 

System Reset System Reset (Output, active low) 
indicates that a reset has been 
generated either from push 
button reset or the power on 
reset circuit. The system reset will 
occur only once per reset and will 
be approximately 10 
microseconds in duration. 

Processor Processor Clock (Output, active 

Clock low) is a single-phase system clock 

of 4 MHz. 

Priority Priority Chain In (Input, active 

Chain In high) is used to form a priority- 

interrupt daisy chain when more 
than one interrupt-driven device 
is being used. A high level on this 
pin indicates that no other 
devices of higher priority are 
being serviced by a CPU interrupt 
service routine. 
44 Memory Memory. Expansion 

Expansion (Output, .active low) signal is low 

during "/MEMRQ" for a block of 
addresses from "4000 thru 7FFF" 
if the Bank Switch is set for the 
ROM side of memory. 
42 Memory Memory Expansion 

Expansion (Output, active low) signal is low 

during "/MEMRQ" for a block of 
addresses from "8000 thru BFFF" 
if the Bank Switch is set for the 
ROM side of memory. 
41 Speaker Speaker pin provides access to the 

speaker on the CPU Board. This 
pin is connected to the open 
collector output of the speaker 
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+ 5VDC 50 


DC Power 


GND 49,48 


Ground 


+ 12VDC 47,45 


DC Power 


36 


Not Used 


38 


Not Used 


43 


Not Used 


46 


Not Used 



driver (75451). This output is 
normally connected thru the 
speaker and parallel 100 ohm 
resistor to a + 12 VDC, but can be 
disconnected by jumper option. 
+ 5VDC system power. 
Ground-System is signal ground 
and DC return. 
+ 12VDC system power. 
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Disk Access Connector 






J12 




D1 


1 


2 


/RD 


DO 


3 


4 


/MREQ 


D7 


5 


6 


/IORQ 


D2 


7 


8 


/WR 


D6 


9 


10 


/BUSAK 


D5 


11 


12 


/M1 


D3 


13 


14 


A0 


D4 


15 


16 


A1 


RST 


17 


18 


A2 


A4 


19 


20 


A3 


A6 


21 


22 


A5 


A15 


23 


24 


A7 


A13 


25 


26 


A14 


A12 


27 


28 


A10 


A9 


29 


30 


A11 


A8 


31 


32 


/BUSRQ ' 


16 MHz Clock 


33 


34 


/BUSAK 1 


/HALT 


35 


36 


/1797CS 


INT 


37 


38 


PRIO 


PP5 


39 


40 


4 MHz Clock 


PP2 


41 


42 


PP4 


PP1 


43 


44 


PP0 


+ 12V 


45 


46 


NM1 


GND 


47 


48 


GND 


DSKWAT 


49 


50 


+ 5V 




51 


52 


+ 5V 


J1-19 


53 


54 


J1-10 


J1-18 


55 


56 


J1-9 


J1-17 


57 


58 


J1-8 


J1-16 


59 


60 


J 1-2 


J1-15 


61 


62 


J1-3 


J1-14 


63 


64 


J1-4 


J1-13 


65 


66 


J1-5 


J1-12 


67 


68 


J1-6 


J 1-1 1 


69 


70 


J1-7 



71 72 
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Pin 


Pin 




Svmbol 


# 


Name 


Meaninq 


DO 


3 


Data bus 


Data Bus (Tri-state, input/output, 


D1 


1 


Data bus 


active high) constitutes an 8-bit 


D2 


7 


Data bus 


bi-directional data exchange with 


D3 


13 


Data bus 


memory and I/O devices. 


D4 


15 


Data bus 




D5 


11 


Data bus 




D6 


9 


Data bus 




D7 


5 


Data bus 




AO 


14 


Address Bus 


Address bus AO-A 15 


A1 


16 


Address Bus 


provides addresses for 65k 


A2 


18 


Address Bus 


bytes of memory. Bit AO and 


A3 


20 


Address Bus 


A1 while under /RD and /WR 


A4 


19 


Address Bus 


control select the register 


A5 


22 


Address Bus 


to receive transfer of data 


A6 


21 


Address Bus 


on D0-D7: 


A7 


24 


Address Bus 


A1 AO /RD /WR 


A8 


31 


Address Bus 


Status REG Command REG 


A9 


29 


Address Bus 


1 Track REG Track REG 


2A10 


8 


Address Bus 


1 Sector REG r Sector REG 


A11 


30 


Address Bus 


1 1 Data REG ' Data REG 


2A12 


7 


Address Bus 


A5 while under /RD and /WR 


A13 


25 


Address Bus 


Control Select Density: 


A14 


26 


Address Bus 


= double density 


A15 


23 


Address Bus 


1 = single density 


PPO 


44 


SYS-PIOPortA 


Port A bit 


PP1 


43 


SYS-PIOPortA 


Port A bit 1 


PP2 


41 


SYS-PIOPortA 


Port A bit 2 


PP4 


42 


SYS-PIOPortA 


Port A bit 4 


PP5 


39 


SYS-PIOPortA 


Port A bit 5 


PRIO 


38 


SYS-PIO 




/DSKWAT 


49 


Disk Wait 


Generates Wait signal to CPU. 


/RD 


2 


Read 


Controls input on the data 
registers D0-D7. 


/MREQ 


4 


Memory 


/MREQ indicates that the address 






Request 


bus holds a valid address for a 
memory read or memory write 
operation. 
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/IORQ 



I/O Request 



/WR 8 

/BUSACK 10 



Write 

Bus 
Acknowledge 



/M1 



12 



Machine 
Cycle 1 



/BUSREQ 32 



Bus Request 



/BUSAK1 34 



Bus 
Acknowledge 



/IORQ indicates that the lower 
half of the address bus holds a 
valid I/O address for an I/O read or 
write operation. /IORQ is also 
generated concurrently with /M1 
during an interrupt acknowledge 
cycle to indicate that an interrupt 
response vector can be placed on 
the data bus. 

Controls output on the data 
registers D0-D7. 
/BUSACk indicates to the 
requesting device that the CPU 
address bus, data bus, and control 
signals /MREQ, /IORQ, /RD, /WR 
have entered the high impedance 
states. The external circuitry can 
now control these lines. 
/M1, together with /MREQ 
indicates that the current 
machine cycle is the op-code fetch 
cycle of an instruction execution. 
/M 1 , together with /IORQ, 
indicates an interrupt 
acknowledge cycle. 
/BUSREQ has the highest priority 
and is always recognized at the 
end of the current machine cycle. 
/BUSREQ forces the CPU address 
bus, data bus, and control signals 
/MREQ, /IORQ, /RD,and/WRto 
go to a high impedance state so 
that other devices can control 
these lines. 

/BUSAK1 is daisy-chained Bus 
Acknowledge output which 
indicates to the requesting device 
that the CPU address bus, data 
bus, and control signals /MREQ, 
/IORQ, /RD, /WR have entered the 
high impedance states. The 
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/1797CS 



INT 



NMI 



/HALT 



16MHz 

CLK 

J1-2 

J1-3 

Jl-4 

J1-5 

J1-6 

J1-7 

J1-8 

J1-9 

J1-10 

J1-11 

J1-12 

J1-13 

J1-14 



36 



37 



46 



35 



33 
40 
60 

62 

64 
66 
68 
70 
58 
56 
54 
69 
67 
65 
63 



Chip Select 



Interrupt 
Request 



Non-Maskable 
Interrupt 



Halt 



Clock 
Clock 
Device I/O 
Interface 
Device I/O Interface 
Device I/O Interface 
Device I/O Interface 
Device I/O Interface 
Device I/O Interface 
Device I/O Interface 
Device I/O Interface 
Device I/O Interface 
Device I/O Interface 
Device I/O Interface 
Device I/O Interface 
Device I/O Interface 



external circuitry can now control 
these lines. 

/1797CS logic low selects the 
Floppy Disk Controller chip and 
enables computer communication 
with the device. 
INT is generated by I/O devices. 
The CPU honors a request at the 
end of the current instruction if 
the internal software controlled 
interrupt enable flip-flop (IFF) is 
enabled. 

NMI is always recognized at the 
end of the current instruction, 
independent of the status of the 
interrupt enable flip-flop and 
automatically forces the CPU to 
restart at location 0066h. 
/HALT indicates that the CPU has 
executed a Halt instruction and is 
awaiting either a non-maskable 
or a maskable interrupt (with the 
mask enabled) before operation 
can resume. While halted, the 
CPU executes NOPs to maintain 
memory refresh. 
16 MHz clock. 
4 MHz clock. 
All interface lines use 
negative logic. 



3£ 
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J1-15 


61 


Device I/O Inte 


jrface 


J1-16 


59 


Device I/O Interface 


J1-17 


57 


Device I/O Interface 


J1-18 


55 


Device I/O Interface 


J1-19 


53 


Device I/O Interface 


+ 12VDC 


45 


DC Voltage 


+ 12 Volts DC 


GND 


47 


Ground 


Ground and DC Return 


GND 


48 


Ground 


Ground and DC Return 


+ 5VDC 


50 


DC Voltage 


+ 5 Volts DC 


+ 5VDC 


52 


DC Voltage 


+ 5 Volts DC 


RST 


17 


Reset 


Reset indicates that a System 
Reset has been generated either 
from push button reset or power 
on reset. 




51 


Not Used 






71 


Not Used 






72 


Not Used 
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MAIN PWA 



Jl 



Pi 



4« 

— 22 

— 5' 

— 23- 

— 6 • 
— 24- 

— \7* 

— 35' 

— 8« 
— 26- 

— 9- 
—27- 

— 10- 
—28- 

— 11- 

— 29 
—-12' 

— 30 

— 13' 

— 31 

— 14' 

— 32* 

— 15- 
-~33" 

-—25- 

— 21- 



INDEX 



Pi 



Ltt. 8" 
DISK DRIVE 
Jl 



DRIVE SEL 1 



DRIVE SEL 2 



READY 



HEAD LOAD 



DIR SEL 



STEP 



WRITE DATA 



WRITE GATE 



TRACK 00 



WRITE PROTECT 



READ DATA 



SID SEL 



L- 

10- 

P- 

13- 

■R- 

14- 

M- 

11- 

K- 

■9- 

U- 

17- 

■V* 

18- 

■W- 

•19- 

X- 

20- 

Y- 

21- 

2- 

22« 

a - 

23- 

•H- 

- 7- 

-E- 

•5- 



INDEX 



P1A 



R.H. 8" 
DISK DRIVE 
Jl 



DRIVE SEL 1 



DRIVE SEL 2 



READY 



HEAD LOAD 



DIR SEL 



STEP 



WRITE DATA 



WRITE GATE 



TRACK 00 



WRITE PROTECT 



READ DATA 



SID SEL 



•10 

►13 — 
•R — 
► 14 — 

>M — 

• K — 
>9 — 

•17 — 

■18 — 

• W — 
■19 — 

•20 — 

•21 — 

•Z 

•22— 

■23 — 
■H — 
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MAIN PWA 



— 4 
—22' 

— 23< 

— 6 ■ 
— 24- 

— 7- 
—25- 

— 9< 
—27' 
—10' 

— 28' 
— 11« 

— 29' 
— 12« 

— 30 « 

— 13' 

— 31' 

— 14' 

— 32 

— 15 

— 33 

— 19 

— 37 

— 18 

— 36 

— 2 
—20 



iND£X 



SEL-1 



SEL-2 



STEP. 



Lhl. £.25** 

OlSiC 3RM/E 

in 



SID SEL 



DIR SEL 



WRITE DATA 



WRITE GATE 



TRACK 00 



WRITE PROTECT 



READ DATA 

+ 5 VDC" ~ 
+ 5V RET 
r12 VDC 

. i-J.2 RET. 

8/N5 • 



E- 

5 - 
F- 

6 - 
T- 

■16* 

K- 

9 - 

L - 
10- 

M- 
11* 
■N- 
12^ 

P* 
13- 

R^ 
14- 

S- 
15* 

4* 
■ 3 - 

1 * 



INDEX 



P1A 



R.H..5.25" 
DISK DRIVE 
J1 



SEL-1 



SEL-2 



SID SEL 



DIR SEL 



STEP 



WRITE DATA 



WRITE GATE 



TRACK 00 



WRITE PROTECT 



READ DATA 



+ 5VDC 



+ 5VRET 



•12VDC 



+12RET 



• D 

. e — ' 
-5 -*- 
•F 

• 6 

•16 — 
•K — 
■ 9 — 

•10— 

-M 

•11 — 
■N — 
•12— 
-p — 
•13 — 
•R — 
•14 — 
•S — 
•15 — 

• 3 — 

■2 — 
I 
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Theory of Operation 

The display processor houses the system board, disk drive daughter 
board, the CRT, the power supply, and one bus expansion slot. 

The system board has the following: 

• Central Processing Unit (CPU) 

• 6 to 8k of Read Only Memory (ROM) 

• 64k of Random Access (Read/Write) Memory (RAM) 

• Counter Timer Circuit (CTC) 

• Serial InputyOutput Controller (SIO) 

• Parallel Input/Output Controller (PIO) 

• Two RS-232-C Serial I/O Ports 

• Dual 8-bit Parallel Ports 

• CRT Controller and CRT Refresh Memory 

• Speaker 

• Disk Drive Daughter Board Connector 

• Bus Expansion Connector 

• 8086 Co-processor (16/8 system) 

• Parallel Keyboard Interface 



CPU 

The CPU is a Zilog Z80-A operating with a clock rate of 4 Mhz. It is 
initialized to use Interrupt Mode 2 by the ROSR monitor at power on. 
The Z80-A also provides refresh to the 64k of dynamic memory on the 
system board. Therefore, the I and R registers should not be altered by 
an application program. 



ROM and RAM Memory 

The System Board has two banks of memory. Bank 1 has 64k of RAM. 

Bank has up to 8K of ROM. 

When power is turned on or RESET is pressed, the Monitor, ROM/CRT 
RAM (Bank .0), is enabled by the hardware and the contents of the 
monitor ROM are moved by the CPU to the program memory starting at 
location F000H. When the move is complete, the CPU transfers control to 



location F000H and RAM (Bank 1) is enabled. Bank is also enabled 
when a character is sent to the screen. 

6-akROM 

The CPU board has provisions for 4-2k x 8 Read Only Memory devices. 
The first 3 (U33, U34 & U35) store the firmware for the ROSR monitor. 
The fourth (U36) provides translation tables and related firmware for the 
position-encoded low profile keyboard. 

64k RAM 

The 64k byte (65536 x 8) RAM provides space for a portion of the ROSR 
monitor (upper 4k FOOOh - FFFFh), and 60k (OOOOh - EFFFh) is free for 
programs to execute in such as an operating system and an application 
program. This RAM is dynamic and refresh is provided by the Z80-A CPU. 



Counter Timer Circuit (CTC) 

The CTC has four independently-programmable counter/timer channels, 
each with a readable downcounter and a selectable 16 or 256 prescaler. 
Downcounters are reloaded automatically at zero. Each channel is 
programmed with two bytes. Once started, the CTC counts down, 
reloads its time constant automatically, and resumes counting. 
Internally, the CTC generates a unique vector for each channel. 



Serial Input/Output Controller (SIO) 

The Serial I/O Controller has two independent, full-duplex channels with 
separate control and status lines for modems or other devices. Data rates 
are from 50 to 19,200 bits/second. Channel A (modem) supports both 
Asynchronous and Synchronous protocols. Channel B (printer) is 
dedicated to Asynchronous. The receiver is quadruple-buffered and the 
transmitter is double-buffered. The controller also supports daisy-chain 
interrupt vectoring for interrupts without external logic. 

Serial I/O Ports 

The 820-11 CPU board contains a Z80-A SIO that provides two user- 
accessible serial ports to the 25-pin printer and modem connectors on 
the rear of the display processor. The Communications port is capable of 
operating in synchronous or asynschronous modes, while the Printer port 
is only capable of operating asynchronously. On an Etch 2 CPU, there is a 
30-pin connector. Selection of synchronous or asynchronous mode is 
under program control as opposed to the Etch 1 CPU (with a 40-pin 

A1 Theorv of Operation 



connector) where a physical change is required to make the sync or async 
selection. 



Parallel Input/Output Controller (PIO) 

There is a System and a General Purpose Parallel I/O Controller which 
provides direct interface between the CPU and the peripheral devices. 
Each controller has two 8-bit I/O ports. The System PIO is dedicated for 
keyboard input, memory bank and CRT font selection, and floppy disk 
drive and side selection. The General Purpose PIO provides the user with 
a dual 8-bit parallel I/O port for interfacing with peripherals. 



Parallel Port 

The Z80-A General Purpose PIO is accessible on the main CPU board on 
connector J8. This PIO is programmed by the ROSR monitor at power-on 
to provide a parallel Centronics-compatible interface for a parallel 
printer. A transceiver is physically located between the Z80-A PIO and 
the J8 connector. Jumpers must be installed on option connector J1 1 to 
select whether the transceiver will transmit or receive data. See also 
page 24. 



CRT Controller 

The CPU board contains the 2k of refresh RAM where the characters that 
are to be displayed on the screen are stored. It also has the necessary 
electronics to provide the control signals (sync and video) to the CRT 
monitor. The CPU board has two character font ROMs; each font ROM 
contains two character sets. 

U57 Normal white on black font 

Reverse video font 
U58 Normal white on black font 

Graphic character font 

The CRT driver in the ROSR monitor translates character-level escape 
sequences into commands as to which of the font ROMs to select and 
which of the two fonts inside the selected font ROM to select. Basically, 
characters that are stored in the CRT's refresh memory address the 
selected foot ROM; the font ROM provides dot information to the video 
input of the CRT so the character can be displayed. 
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The characters on the CRT can have one of the following attributes: 

Blink 

Inverse video 
Graphics 
Low intensity 

The most significant bit of the character stored in the CRT's refresh 
memory determines if the character is to be displayed with its attribute 
enabled. 

The ROSR monitor provides a character-oriented command format for 
controlling the screen and font ROM selection. It is recommended that 
programs use this method to control the CRT and its attributes. 
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CRT RAM 

Memory Allocation 

The CRT RAM occupies 3000H - 3FFFH in bank (System Bank). Each 80- 

character line on the CRT is allocated 1 28 bytes in the CRT RAM. Listed 

below are the starting and ending addresses for each of the 24 rows in 

the CRT RAM. The example (at the bottom) shows some character 

locations in CRT memory. (Assumes scroll register = 23) 



Row 


Starting Address 


Ending Address 





3000H 


304FH 


1 


3080H 


30CFH 


2 


3100H 


314FH 


3 


3180H 


31CFH 


4 


3200H 


324FH 


5 


3280H 


32CF.H 


6 


3300H 


334FH 


7 


3380H 


33CFH 


8 


3400H 


344FH 


9 


3480H 


34CFH 


10 


3500H 


354FH 


11 


3580H 


35CFH 


12 


3600H 


364FH 


13 


3680H 


36CFH 


14 


3700H 


374FH 


15 


3780H 


37CFH 


16 


3800H 


384FH 


17 


3880H 


38CFH 


18 


3900H 


394FH 


19 


3980H 


39CFH 


20 


3A00H 


3A4FH 


21 


3A80H 


3ACFH 


22 


3B00H 


3B4FH 


23 


3B80H 


3BCFH 


Row 


Column 


CRT Memory Address 





' 


3000H 





79 


304FH 


1 


1 


3081H 


1 


5 


3085H 


23 





3B80H 


23 


1 


3B81H 


23 


79 


3BCFH 
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Scroll Register 

To eliminate the delay associated with software scrolling, hardware 
scrolling is employed. Writing into the scroll register (Port 14h) adds an 
offset to the line address developed by the line counter. For instance, 
with an offset of zero (scroll register = 0), the data at locatjon 3000H (in 
the CRT refresh memory) will be displayed on the bottom row of the 
display. If the offset is 23, the data at location 3000H will be displayed on 
the top row of the screen. The scroll register is loaded from A8 to A1 5 
rather than DO to D7. Therefore, the scroll value must be in the B register 
if an indirect OUT instruction is used. 



I Register 


Row 0, Column 


Row 23, Column 


23 


3000H 


3B80H 


21 


3080H 


3B00H 


21 


3100H 


3A80H 


20 


3180H 


3A00H 


19 


3200H 


3980H 


18 


3280H 


3900H 


17 


3300H 


3880H 


16 


3380H 


3800H 


15 


3400H 


3780H 


14 


3480H 


3700H 


13 


3500H 


3680H 


12 


3580H 


3600H 


11 


3600H 


3580H 


10 


3680H 


3500H 


9 


3700H 


3480H 


8 


3780H 


3400H 


7 


3800H 


3380H 


6 


3880H 


3300H 


5 


3900H 


3280H 


4 


3980H 


3200H 


3 


3A00H 


3180H 


2 


3A80H 


3100H 


1 


3B00H 


3080H 





3B80H 


3000H 
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Speaker 

The 820-11 and 16/8 have an audio speaker connected to two I/O ports 
(28h and 29h). Outputting to one I/O port causes the speaker cone to be 
pushed out; outputting to the other I/O port pulls in the speaker cone. 
The actual value output to these ports has no significance. To generate a 
beep, the application program can simply send an ASCII Bell character to 
the CRT. To generate a tone other than the standard bell character, the 
program must move the speaker cone in and out at the desired 
frequency. 



Disk Drive Daughter Board ' 

The disk drive connector on the rear is a "dual personality" connector, 
depending on which disk drive daughter board is installed on the mother 
board. Presently, there are two types of disk interface: 

Shugart SASI interface controller suitable for interfacing to a 
SA1403D Rigid Disk Controller. 

Floppy-only interface suitable for interfacing to Shugart 
SA800/SA400L/SA850/SA450 dual daisy-chained disk configurations. 

The ROSR monitor detects which daughter board is installed at power-on 
and selects the appropriate physical disk driver firmware to process 
physical disk drive requests. 

Caution: 

If a rigid disk drive unit (U07, U08) is connected to a floppy 
display/processor (U03/H69, U04), the rigid controller PWB will be 
destroyed when power is switched on. The rigid disk drive unit must be 
connected only to a rigid display/processor (U05/H70, U06). Connecting 
a floppy disk drive unit (929/T66/973/F10, E41/E44/E42/E89) to a rigid 
display/processor (U05/H70, U06) may cause the processor PWB to fail. 
Before connecting any disk drive unit to a display/processor, check that 
the configuration of the display/processor is compatible with the disk 
drive unit. The configuration can be determined in one of two ways. 
(1) Check the product code of the display/processor. The product code is 
the first three digits of the serial number, located on the underside of 
the display processor. (2) Verify that the proper drive interface PWB is 
installed by checking the part number. 
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System Bus 

The System Bus contains an 8-bit Data Bus (Tri-state, Input/Output) bi- 
directional Data exchange with memory and I/O devices. It has a 16-bit 
Address Bus to address up to 64k of memory for I/O devices data 
exchange. 



Keyboard Interface 

The keyboard FIFO (Etch 2 CPU only) has space for 16 (decimal) entries. 
Associated with the keyboard FIFO are input and output position 
pointers and a count of the number of entries currently in the FIFO. 

The available memory pointers provide the addresses bounding the 
available unused RAM in the memory reserved for system use. Although 
these pointers are a supported feature, there is no guaranteed available 
memory size. 

There are two tables used to disk map a logical disk to its physical driver. 
The first table, Seltab, associates a logical disk number with a physical 
disk number. The second table, Drvtab, identifies which physical disk 
driver is appropriate to use with the selected physical disk. 

The physical driver command block is a collection of all information 
necessary for the disk system to perform the requested disk activity. 

The timer and clock variables are a collection of locations used for 
maintaining the one second timer and the time-of-day clock and 
calendar. The console command line buffer immediately follows these 
variables. 
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Specifications 
Print Speed: 

Character Set: 

Printwheels: 
Character Spacing: 



Column Spacing: 
Print Line: 



Print Buffer: 
Paper Width: 



Carriage Speed: 

Tabulation: 
Line Spacing: 
Paper Feed: 



Up to 40 characters per second with metalized 
printwheels. 

88, 92, or 96 printable characters per printwheel. 
Switch-selectable program support for APL and 
all English language printwheels. 

88, 92, 96 character Xerox - Metal 
96 character Diablo - Plastic 

10-pitch = 10 characters/inch (3.94 ch/cm) 
12-pitch = 12 characters/inch (4.72 ch/cm) 
15-pitch = 15 characters/inch (5.91 ch/cm) 
Proportional Space (PS) - see HMI, page 241 . 

1/120 inch (.21mm) minimum. 

1 3.2 inches (335.3mm) 
132 columns 10-pitch 
158 columns 12-pitch 
198 columns 15-pitch 

2688 bytes. 

16.53 inches (419.9mm) maximum 

- friction feed without Top Paper Out switch. 
1 6.00 inches (406.4mm) maximum 

- friction feed with Top Paper Out switch. 
1 5.25 inches (387.4mm) maximum 

- full width with optional forms tractor (14.75 
inches/-374.7mm between holes). 3.25 inches 
(82.55mm) minimum with forms tractor (2.75 
inches/69. 85mm between holes). 

400 msec maximum for 13.1 inches (332.77mm) of 
motion. 

Left or right. 

1/48 inch (.53mm) minimum. 

Bidirectional, except with unidirectional forms 
tractor and unidirectional pin feed platen. 



20 & 40 CPS Printers 
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Paper Feed Speed: 
Paper Thickness: 



Sensors: 
Other Features: 

Power 
Requirements: 



4 inches (101.6mm) per second plus 40 msec 
(typical) settling delay time. 

.000 - .010 inch (.254mm) at low setting (1-3 part 

forms) 

.010 - .027 inch (.254- .686mm) at high setting (4- 

6 part forms). 

End of ribbon, paper out, and cover open. 

Self test; host program control through escape 
sequences; data receive/transmit speed selection. 

Strappable for operation from nominal 100, 120, 
220, or 240 volt ( + 10%/-1 5%) AC inputs, 49-61 
Hz. 350W maximum power consumption. 
Factory preset for 1 20 VAC. Check your printer's 
serial plate for proper input power. 



Cabling Requirements 

A standard RS-232-C interface cable is required for connection between 
the screen and the printer. This cable must be equipped with DB-25P 
connectors with the following pins connected: 



PIN 


CCITT 


TELCO 




NO. 


DESIG. 


DESIG. 


DESCRIPTION 


1 


101 


AA 


Protective Ground 


2 


103 


BA 


Transmitted Data 


3 


104 


BB 


Received Data 


4 


105 


CA 


Request To Send 


6 


107 


CC 


Data Set Ready * 


7 


102 


AB 


Signal Ground 


20 


108 


CD 


Data terminal Ready 



* Pin 6 must be HI to receive or transmit data. 
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1.0 INTRODUCTION 

The SA1403D Controller consists of a micrprocessor based controller with on-board data separator logic 
and is able to control a maximum of four drives. The drives can be any combination of Shugart SA1000 fixed 
disk drives. SA800 floppy disk drives, or SA850 floppy disk drives. The floppy disk track formats are compati- 
ble with IBM 1D/2D track formats. The SA1403D can be mounted on the SA1000 drive. 

Commands are issued to the controller over a bidirectional bus connected to the host computer. The data 
separatorrserdes" logic serializes bytes and converts to FM/MFM data, and deserializes FM/MFM data in- 
to 8-bit bytes. 

Due to the microprogrammed approach utilized in the controller, limited diagnostic capabilities are im- 
plemented. This methodology increases fault isolation efficiency and reduces system down time. Error 
detection and correction will tolerate media imperfections up to 4-bit burst errors. 

NOTE: This device utilizes neaative logic (i.e., 0V = logical 1) 

1.1 SA1403D CONTROLLER FEATURES 



OVERLAPPED SEEK 



AUTOMATIC SEEK 
AND VERIFY 



FAULT DETECTION 



AUTOMATIC HEAD 
AND CYLINDER 
SWITCHING 

DATA ERROR 
SENSING AND 
CORRECTION 



LOGICAL TO 
PHYSICAL DRIVE 
CORRELATION 

ON BOARD SECTOR 
BUFFER 

EFFICIENT HOST 

INTERFACE 

PROTOCOL 

SECTOR 
INTERLEAVE 

ODD PARITY 



In multiple drive configurations the host can issue seeks to different drives 
without waiting for the first drive to complete its seek. 

A seek command is implied in every data transfer command (READ, WRITE 
CHECK, etc.). If the heads are not positioned over the correct cylinder, a seek 
is initiated and a cylinder verification is performed after the seek completes. 

Three classes of fault detection are provided for fault diagnosis: 

1) Disk related faults. 

2) Controller related faults. 

3) Host command or I/O timing faults. 

Fault detection is available from the interface as a status message and is also 
visibly displayed on a row of status LED's on the controller PCB. 

If during a multi-block data transfer the end of a track is reached, the con- 
troller automatically switches to the next track. If the end of a cylinder is 
reached, the controller issues a seek and resumes the transfer. 

If a data error is detected during a disk data transfer, the controller indicates 
whether or not it is correctable. If correctable, it can be automatically 
corrected. (This applies to the SA1000 only. CRC error detection is used 
on floopy disc drives.) 

Logics. Unit Number (LUN's) are independent of physical port numbers. All 
accesses specify LUN's. 



A sector buffer is provided on the controller to eliminate the possibility of data 
overruns during a data transfer. 

A bidirectional bus between the controller and host provides a simple, yet effi- 
cient communication path. In addition, a high level command set permits 
effective command initiation. 

Sector interleaving is programmable with up to a 16 way interleave. 



The 8 data bits on the interface bus can have odd parity. Depending on user 
preference, parity can be disabled. 



FIXED SECTOR SIZE The sector size is fixed at 256 bytes of data for the SA1000. 
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NUMBER OF 
DRIVES 



The controller will connect to a maximum of four (4) drives. The drives can be 
any combination of SAIOOO's and/or SA850's and/or SA800's 



1.1.1 OPTIONAL FEATURES 

MICRO DIAGNOSTICS A set of diagnostic PROM's are available to allow stand alone diagnostic test- 
ing of both drive and controller. Reference Appendix A. 

1.1.2 SYSTEM CONFIGURATION 

The controller and data separator comprise a single PCB that can be mounted onto the SA1 000 drive. A max- 
imum of four (4) drives may be connected as shown in Figure 2. 

1.2 TRACK FORMATS AND CAPACITY 

A) 32 sectors of 256 bytes per sector (SA1000only). 

C) 26 sectors of 256 bytes per sector (Floppy only). 

D) 26 sectors of 128 bytes per sector (Floppy only.) 



IBM1D/2D 
TRACK FORMAT 



Track format for Floppy Disk drives can be selected under program control 
in real time. The track formats are: 

1) Single density, single sided 

2) Single density, double sided 

3) Double density, single sided 

4) Double density, double sided 



SA800 
SA850 
SA1002 
SA1004 



26 SECTOR 


32 SECTOR 


2001 


N/A 


4003 


N/A 


N/A 


16383 


N/A ' 


32767 



TABLE I. 

Format/Capacity Relationship 
Maximum Logical Sector Address Shown 



2.0 SPECIFICATION SUMMARY 

2.1 ENVIRONMENTAL LIMITS 

Temperature F/C 
Max. Wet Bulb 
Relative Humidity 
Altitude 



Operating 

32°/0°to 131°/55° 

85°F 

10% to 95% 

Sea level to 10,000 ft 



Storage 

-40°/-40°tO 167°/75° 

non condensing 

10% to 95% 

Sea level to 1 5,000 ft 
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2.2 POWER REQUIREMENTS 

Three power supply voltages are required for the SA1400 series controllers. The maximum current re- 
quirements are as follows: 

+ 5VDC ± 5% at 4.6 Amps 
- 5VDC ± 5% at 0.5 Amps 
+ 24VDC ± 10% at 0.1 Amps 

Power is applied to the SA1400 series controller via J10 which is a 6 pin AMP M f^^ 
iS^M) mounted on the component side of the board. The ^commended mating conne^ 
AMP P/N 1-480270-0 utilizing AMP pins P/N 60619-1. The J10 pins are labeled on the connector. Figure 1 
shows the pin assignments. 



. 24V RETURN- 

•5VDC- 

+ 5V RETURN- 



[©IT©]- 


©r 


]© 


© 


© 



■+ 24 VUC 
■ -5V RETURN 
-+ 5VDC 



FIGURE 1. J10 DC POWER CONNECTOR 



2.3 PHYSICAL PARAMETERS 



Length: 
Width: 
Height: 
Weight: 



13.7 inches (34.8cm) ± .030" (.076 cm) 
8.25 inches (21cm) ± .01 0" (.025 cm) 
0.5 inches (1.3cm) ± .030" (.076 cm) 

• 1.12 lbs (0.5Kg) ± .010 lbs (0.25 g) 



3.0 SA1403D DISK DRIVE INTERFACE 

Shugart-SA1 000 and SA800/850 disk drives are interfaced to the controller via J1 , J2. J3. J4 and J5. Refer to 
Figure 2 for connection block diagram. 

SA1 4030 SERIES 
CONTROLLER 



HOST INTERFACE 



t> 



DC POWER 



t> 



J6 
50 PIN 
SOCKET 



J10 

6 PIN 

SOCKET 



J1 
50 PIN 
EDGE 

J2 
20 PIN 
SOCKET 

J3 
20 PIN 
SOCKET 



< 



CONTROL/DATA. SA1000/SA800/SA850 



^—^ 



^ DATA 



SA1000 



SA1000 
SA800 
SA850 
DRIVE 1 



1 . 




SA1000 
SA800 
SA850 
DRIVE 2 



J5 
20 PIN 
SOCKET 



SA1000 

SA800 

SA850 

DRIVE 3 



SA1000 

SA800 

SA850 

DRIVE 4 



s 






FIGURE 2. SA1403D INTERCONNECT DIAGRAM 
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NOTE: The last physical device on the control cable (drive to be terminated) must be an SA1000. 

J.1 is a 50 pin edge type connector which connects all drives in a daisy chain configuration. This connector 
carries control and data information for the floppy disk drives and control information only for the SA1000 
disk drive. Maximum cablelength should not exceed 20 feet (6 meters). 

The recommended mating connector for J1 is a 3M Scotchfiex ribbon connector P/N 3415-0001. 

J2 through J5 are 20 pin socket type connectors used to radially connect the SA1000 data lines to the con- 
troller. Maximum cable length should not exceed 20 feet (6 meters). 

The recommended mating connector for J2 through J5 is a 3M Scotchfiex P/N 3421-3000. Figure 3 shows 
the pinouts for J1 and J2 through J5. 



J1 




SA1000 


1 


2 

4 
6 


• IW SWITCH 




8 


- SEEK COMPLETE 




10 






12 






14 


• HEAD SEL 2° 




16 






18 


- HEAD SEL V 




20 


- INDEX 




22 


• READY 




24 






26 


• DRIVE SEL 1 




28 


- DRIVE SEL 2 




30 


• DRIVE SEL 3 




32 


• DRIVE SEL 4 




34 


• DIRECTION SEL 




36 


•STEP 




38 






40 


• WRITE GATE 




42 


- TRACK 000 




44 


- WRITE FAULT 




46 






48 




49 


50 





SA800 



HEAD LOAD 

INDEX 

READY 

DRIVE' SEL 1 
DRIVE SEL 2 
DRIVE SEL 3 
DRIVE SEL 4 
DIRECTION SEL 
STEP 

WRITE DATA 
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TRACK 00 
WRITE PROTECT 
READ DATA 



J2 THROUGH J5 



■ DRIVE SELECTED 



+ TIMING CLOCK 
GROUND 

+ MFM WRITE DATA 
GROUND 

+ MFM READ DATA 
GROUND 



1 


2 


3 


4 


5 


6 


7 


8 


9 


10 


11 


12 


13 


14 


15 


16 


17 


18 


19 


20 



SA850 

• IW SWITCH 



TWO SIDED 



SIDE SEL 



HEAD LOAD 


INDEX 


READY 


DRIVE SEL 1 


DRIVE SEL 2 


DRIVE SEL 3 


DRIVE SEL 4 


DIRECTION SEL 


STEP . 


WRITE DATA 
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TRACK 00 


WRITE PROTECT 


READ DATA 



GROUND 
n 



GROUND 

• TIMING CLOCK 
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• MFM WRITE DATA 
GROUND 

- MFM READ DATA 
GROUND 



FIGURE 3. SA1403D DRIVE CONNECTOR PINOUTS 
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3.1 CABLE TERMINATION 

The last physical drive at the end of J1 (50 pin) cable must be properly terminated. Termination networks are 
provided on the drives (refer to SA1 000, SA800 or SA850 OEM manuals for location of termination networks). 
Termination networks must be removed from all drives except the last drive on the cable to avoid multiple 
termination. 

NOTE: If a combination of fixed and floppy drive are used,. the last drive at the end of the control cable must 
beanSA1000. 

4.0 HOST CPU INTERFACE 

The SA1400 series controller interface is a general purpose 8 bit parallel DMA. • 

The Host CPU is interfaced to the controller via connector J6, J6 is a 50 pin socket type connector. The 
recommended mating connector for J6 is a 3M Scotchflex ribbon connector P/N 3425-3000. The J6 interface 
cable should not exceed 20 feet (6 meters). 

4.1 HOST CPU ELECTRICAL INTERFACE 

All Host CPU interface signals are negative true. The signals are "Asserted" at VDC to 0.4 VDC. The 
signals are "Deasserted" or inactive at 2.5 VDC to 5.25 VDC. 

4.1.1 HOST CPU INTERFACE TERMINATION 

All Host CPU interface timing lines are terminated with a 220/330 ohm network. The Host CPU adapter 
should be terminated in a similar fashion (see Figure 4). 

The devices driving the controller inputs should be open collector devices capable of sinking at least 48 
milliamps to a voltage level of less than 0.5 VDC (7438 or equivalent). 

The devices receiving the controller outputs should be of the SGHMITT trigger type to improve the noise 
margin (74LS240, 74LS14, or equivalent). The Host adaptor should not load the bus with more than 1 stan- 
dard TTL input load per line. 
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FIGURE 4. HOST ADAPTOR BUS TERMINATION 
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4.1.2 HOST CPU SIGNAL INTERFACE 

The Host CPU signals are interfaced via J6. See figure 5 for J6 pinouts. 
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• NOTE: ALL SIGNALS ARE TTL NEGATIVE TRUE 
FIGURE 5. J6 HOST INTERFACE CONNECTOR PINOUT 

4.2 SA1403D HOST BUS 

4.2.1 THEORY OF OPERATIONS 

Disk commands are issued to the SA1403D via the host bus following a defined protocol. The host initiates a 
command sequence by selecting the controller on the bus. If the controller is not busy, it requests command 
bytes from the host for task execution. (Command structure is described in 4.5). Depending on the type of 
command, the controller wiirrequest either 6 or 1 bytes. Upon reception of the last command byte, the con- 
troller begins execution of the command. 
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For the data transfer commands, a check is performed on the disk address and status flagged if it exceeds 
tne drive limits. The data is stored in a sector buffer before transfer to the host or disk drive. This buffer 
eliminates any possibility of data overruns between the host and the disk. 

Upon completion of the command, the controller will send completion status to the host. Further delineation 
of the completion status may be requested by issuing the appropriate sense commands. 

Odd parity is'generated by the SA1403D for all information that it puts on the I/O bus. If enabled, the 
SA1403D checks all information that it receives for odd parity. 

4.3 SIGNAL DEFINITION 

Unidirectional Signals Driven By Controller 

I/O Input/Output. When asserted, the data on the bus is driven by the controller; when 

deasserted, the data on the bus is driven by the host adapter. The host adapter will use this 
line to enable its drivers onto the data bus. 

C/D Control/Data, When asserted the data transmitted across the bus will be the command or 

status bytes; when deasserted the data will be the disk data bytes. 

BUSY This bit is asserted as a response to the SEL line from the host adapter and to indicate that 

the host bus is currently in use. 

MSG Message, When asserted indicates that the command is completed and status has been 

transferred. The assertion of this bit is always followed with the assertion of I/O, and the 
assertion of REQ, to cause a message byte transfer. 

REQ Request. This bit operates in conjunction with I/O, G/D, & MSG. When asserted and I/O is 

asserted, REQ will mean that the data on the host bus is driven by the controller. When 
asserted* and I/O is deasserted, REQ will mean that the data is driven by the host adaptor 
(H/A). 



I/O 


C/D 


MSG 


Meaning 


d 
d 
a 
a 
a 


a 
d 
d 
a 
a 


d 
'd 
d 
d 
a 


Get command from H/A 
Get data from H/A 
Send data to H/A 
Send status byte to H/A 
Command done to H/A 



TABLE 2. 

a = asserted, d = deasserted, H/A = host adaptor 

4.4 UNIDIRECTIONAL SIGNALS DRIVEN BY HOST ADAPTOR 

ACK Acknowledge. This bit is asserted as a response to REQ from the controller. The timing re- 

quirements on this«signal with respect to the data is described in REQuest section. ACK 
must be returned for each REQ assertion 
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RST Reset. Assertion by the Host causes the controller to cease all operations and return to an 

idle condition. This signal is normally used during a power up sequence. A reset during a 
write operation would cause incorrect data to be written on the selected disk. The con- 
troller may take a maximum of 2 seconds to respond to the select sequence following 
deassertion of the RESET line. 

SEL Select. When asserted indicates the beginning of the- command transaction. The H/A 

asserts SEL to gain the attention of the controller. Data bit zero on the host bus must also 
be asserted during SEL time to select the controller address. The controller will return 
BUSY within approximately 1/xS. 

4.4.1 DATA BUS BITS 0-7 (DB) 

These bidirectional data lines are used to transfer 8 bit parallel data to/from the Host adaptor. Bit 7 is most 
signifant bit. NOTE: All l/F lines utilize negative logic. 

4.4.2 PARITY BIT 

This bit is asserted to maintain odd parity on all data and status information transferee! to the Host. If enabl- 
ed, the controller will test for odd parity on all command and data information transfered to the controller 
(see section 9.1). 

4.5 HOST INTERFACE PROTOCOL 

There are 4 sequences required to initiate and complete a command to the SA1403D series controller: 

1) Controller Selection Sequence 

2) Command Transfer Squence 

3) Data Transfer Sequence 

4) Status and Message Transfer Sequence 

4.5.1 CONTROLLER SELECTION SEQUENCE 

In order to gain the attention of the controller it is necessary to perform a selection sequence. Refer also to 
Figure 6. 

The Host must first test BSY to determine if the controller is available. If BSY is deasserted, the Host will 
assert data bit (controller ID) and then assert SEL. The controller will then respond by asserting BSY. At 
this point the Host must deassert SEL and data bit 0. I/O will remain deasserted throughout the selection se- 
quence. 

4.5.2 COMMAND TRANSFER SEQUENCE 

Following the selection sequence the controller will assert REQ (see Figure 6). The Host will then place the 
first byte of the command descriptor block (see section 5.0) on the data bus. The Host will then assert ACK (if 
ACK is not asserted within 256 microseconds after the assertion of REQ, the controller will abort the com- 
mand transfer sequence and attempt to transfer a status byte). The controller will respond by reading the 
byte on the data bus and then deasserting REQ. The Host then must deassert ACK to begin the next 

! REQ/ ACK handshake. This handshake must be completed to assure that all command and data bytes are 
transferred. 
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FIGURE 6. SELECT SEQUENCE TIMING 

4.5.3 DATA TRANSFER SEQUENCE 

Following the command transfer sequence, the controller will respond on one of four ways: 

1) Begin seeking the drive. 

2) Begin accepting write data from the Host. 

3) Begin transferring read data to the Host. 

4) Return status to the Host. . 

If the command sent to the controller involves a data transfer (see Figure 7), the controller will deassert the 
C/D line to indicate a data transfer. If the data transfer is from the Host to the controller (write data) the I/O 
line will be deasserted. If the data transfer is from the controller to the Host (read data) the I/O line will be 
asserted. The controller will then set the REQ line to request a byte transfer. The Host will respond by 
transferring a byte across the data bus and then asserting ACK (if ACK is not asserted within 256 
microseconds after the assertion of REQ, the controller will abort the data transfer sequence and attempt to 
transfer a status byte - see section 4.5.4). The Host will then deassert ACK and wait for the next assertion of 
REQ. This handshake continues until all data has been transferred 
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READ DATA TRANSFER SEQUENCE (CONTROLLER TO HOST) 
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WRITE DATA TRANSFER SEQUENCE (HOST TO CONTROLLER) 

FIGURE 7. DATA TRANSFER SEQUENCE TIMING 

4.5.4 STATUS AND MESSAGE TRANSFER SEQUENCE 

Following a command transfer or data transfer, the controller will initiate a status byte and completion 
message transfer. 

When a status byte transfer is required, the controller will assert C/D and I/O (see Figure 8). The controller 
will then assert REQ. The Host must then read the status byte on the data bus and then assert ACK (if ACK is 
not asserted within 256 microseconds after the assertion of REQ, REQ will be deasserted. REQ will then be 
asserted again).The controller will then deassert REQ. The host will then deassert ACK. 

Following the status byte transfer, a completion message byte of all zero's will be transfered to indicate 
operation complete. The controller will assert the MSG line (along with I/O and C/D) and then assert REQ. 
The Host may read the completion message byte on the data bus and assert ACK (if ACK is not asserted 
within 256 microseconds, the controller will deassert the MSG line and attempt to transfer a status byte). 
The controller will respond by deasserting REQ. The Host will then deassert ACK. At this point BSY and all_ 
other controller I/O lines will be deasserted and the controller will return to an IDLE LOOP awaiting the next" 
selection sequence. 
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5.0 CONTROLLER COMMAND DESCRIPTOR BLOCK 

Following the controller selection sequence the controller will request a command descriptor block (CDB)- 
which, depending on the class of command, may be either 6 or 10 bytes in length. The first byte of the CDB 
contains the command class and the command operation code. The remaining bytes specify the drive 
logical unit number (LUN), logical sector address, number of sectors to be trarisfered or a destination device " 
(Copy Command), and a control field byte. 

Commands are categorized into four classes as indicated: 

Class - Utility, Data Transfer and Status Commands 

Class 1 - Disk Copy Commands 

Class 2-5,7 - Reserved 

Class 6 - Floppy Disk Track Format Selection 

The command descriptor blocks in Command Class and 6 are 6 bytes long, and those in Class 1 are 10 
bytes long. 

The controller will check all incoming command descriptor blocks for validity and will also check (if enabled) 
all CDB's and data for odd parity (see section 9.1). A parity error will cause an immediate halt of the com- 
mand or data transfer. This will not cause incorrect data to be written because the write does not occur until 
the sector buffer has been filled. An error in the command structure will cause a status byte transfer to occur ' 
upon completion of the CDB transfer. 



SA 1403D Controller Reprint 



Rev.-A 



263 



5.1 COMMAND DESCRIPTION (CLASS 0) 



"WARNING!** 

Commands READ and WRITE require that the floppy diskette used be formatted. If unformatted, the con- 
troller will appear to "hang" - i.e., continue waiting for a data address mark. (Reset to clear this condition if it 
should occur). 



Opcode 
(Hex) 

00 
01 



Description 

Test drive ready - Selects the drive and verifies drive ready. The ready condition is in- 
dicated by the status byte. A not-ready drive will cause bit 1 of the status byte to be set. 

Recalibrate. Positions the R/W of selected drive arm to Track 00, clears error status in the 
drive. 



02 



Request Syndrome - returns two bytes of error offset and syndrom to the Host System for 
Host error correction capability (see Table 3). The first byte is offset in the data field of the 
error location. The most significant 3 bits of the second byte point to the beginning of the 
error location. The least significant 4 bits of the second byte are the syndrome which is a 
data correction mark to be exclusive or'ed with the faulty data. This command is only valid 
of the automatic data correction has been disabled. 



03 

04 

05 
06 

07 

08 

09 
0A 

0B 



MSB 














LSB 
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2 


1 


. 


BYTE OFFSET 


BIT OFFSET 





SYNDROME 



BYTE1 



BYTE 2 



TABLE 3 

Request Sense. This command must be issued immediately after an error. It returns 4 bytes 
of drive and controller sense for the specified LUN; (See copy block for exception) 

Format Drive. Formats all blocks with ID field set according to interleave code. The data 
field contains E5 Hex. 

Spare. 

Format Track. * Formats the specified track with bad block flag cleared in all blocks of that 
track. Writes E5 Hex in the data fields. 

Format Bad Track *(bad block flag). Formats the specified track with bad block flag set in 
the ID fields (bit 7 of the Head Address byte set). Writes E5 Hex in the data fields. 

Read. Reads the specified number of blocks starting from initial block address given in the 
CDB. (See Warning above!) 

Reserved. 

Write. Writes the specified number of blocks starting from initial block address given in the 
CDB. (See Warning above!) 

Seek. Initiates seek to specified block and immediately returns completion status before the 
seek is complete for those drives capable of overlap seek. 



The track is addressed via the logical sector address, which may be any address within the desired track. 



1AA 
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5.1.2 COMMAND DESCRIPTION (CLASS 1) 

Opcode 

(Hex) Description 

00 Copy Blocks. Copies the specified number of blocks from Source LUN starting at the 

specified Logical address to Destination LUN starting at the specified Logical address. The 
number of sectors transferred may be from 1 to 256. The completion status byte will in- 
dicate the source LUN. If an error occurs, a Request Sense command is issued to the 
source LUN. The sense will indicate the type of error for the appropriate LUN. Note the . 
data in the blocks will be truncated or appended with undefined data if the Source and 
Destination block sizes are not the same (e.g. Source block size - 128 bytes/sector, and 
Destination block size - 256 bytes/sector). 

'5.1.3 COMMAND DESCRIPTION (CLASS 6) 



Opcode 
(Hex) 

00 



NOTE: 



Description 

Define Floppy Disk Track Format. The Track format code in byte 6 of the CDB defines the 
track format for the LUN. The Track Format Codes are as follows: 

Track Format 

Code (Hex) Description 



00 



01 



02 



03 



Single Density, Single Sided. All tracks - FM recording, 128 bytes/sector, 26 
sectors/track. 

Single Density, Double Sided. All tracks - FM recording, 128 bytes/sector, 26 
sectors/track. 

Double Density, Single Sided. Side 0, Cylinder - FM Recording, 128 
bytes/sector, 26 sectors/track. All other tracks - MFM recording, 256 
bytes/sector, 26 sectors/track. 

Double Density, Double Sided. Side 0, Cylinder - FM recording, 128 
bytes/sector, 26 sectors/track. All other track - MFM recording, 256 bytes/sec- 
tor, 26 sectors/track. 



If track format information for floppy is not specified after each reset or power-on, the 
default mode will be taken from the drive type selection dipswitch as follows: 

Switch 

Setting Mode 

• OFF-ON Single density, single sided (same as track format code 00) 

OFF-OFF Single density, double sided (same as' track format code 01) 

Refer to Section 9.2 for switch setup instructions. 

5.2 COMMAND FORMAT 
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5.2.1 CLASS COMMANDS 





7 


6 


5 


4 


3 


2 


1 





byte #1 





opcode 


byte #2 


LUN 


logical adr2 mm (MS) 


byte #3 


logical adrf 


byte #4 


logical adrO" (LS) 


byte #5 


numoer of blocks* 


byte #6 


control* ** 



* Interleave factor for Format, Check Track Format commands. 
**Refer to Section 5.5 Logical Address. 
***The control field is defined as follows: 



7 


6 


5 


4 


3 


2 


1 


. 


i 


i 


i 


i 


n 


t 


n n J n 










disable data- error correction 

HiQshla r&trv — 1 













spare (set to zero) 



5.2.2 CLASS 1 COMMANDS 



CONTROL FIELD 





7 


6 


5 


4 


.3 


2 


1 





byte #1 








1 


opcode 


byte #2 





LUN/s 


logical adr2/s* (MS) 


byte #3 


logical adn/s* 


byte U 


logical adrO/s* (LS) 


byte #5 


number of blocks 


byte #6 





LUN/d 


logical adr2/d* (MS)' 


byte #7 


logical adn/d* 


byte #8 


logical adrO/d* (LS) 


byte #9 


spare 


byte #10 


control (section 5.2.1) 



where 's' indicates the source device and 'd' indicates the destination device. 
•Refer to Section 5.5 Logical Address 
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5.2.3 CLASS 6 COMMANDS 



7 


6 


5 


4 


3 


2 


1 





1 


1 





opcode 


LUN 


N/A 


N/A 


N/A 


N/A 


Track Format Code 



byre #1 
byte #2 
byte #3 
byte #4 

byte #5 
byte #6 

NOTE: See Class 6 Command Description for more information and default modes for floppy drives. 

5.3 STATUS FORMAT 

5.3.1 Completion Status Byte Format 

At the normal termination of a command or following a fatal error, the controller will cause a status byte to 
be transferred from the controller to the Host. Bit 0, the least significant bit of the status byte, will be set 
equal to 1 if the controller detects a parity error during a command or data transfer to the controller. Bit 1 will 
be set = 1 if the controller detects an error condition. Bits 5 and 6 represent the LUN of the device where 
the error occured. If no error occurs, bit - 4 will be set equal to 0. 

Following the transfer of the status byte, the MSG line will be asserted to indicate a completion message. At 
this time the message consists of a single byte transfer with all bits set = 0. 

Prior to an error condition the controller, unless diabled (see section 5.2.1 Control Field), will retry 3 times 
before posting the error. 



7 


6 


5 


4 


3. 


2 


1 








MS 


LS 
LUN 




spare 
(set = 0) 


j 


i t 


i 













Parity error 
Error 



Bit Parity error during transfer from host to controller. 

Bit 1 Error occured during command execution. 

Bit 2-4 Spare (set to zero). 

Bit 5-7 Logical unit number of the drive. 
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5-3.2 DRIVE AND CONTROLLER SENSE BLOCK 

Following an error indication from the status byte, the Host may perform a REQUEST SENSE command to 
obtain more detailed information about the error. 

The REQUEST SENSE command will transfer a block of 4 bytes to the Host system. 



byte #1 



Error code 



■ Error type 

■ spare (set to zero) 

. Block address valid 



byte #2 

byte #3 
byte #4 



7 


6 


5 


4 


3 


2 


1 





LUN 


logical adr2* 


logical adrl * 


logical adrO* 



•Refer to Section 5.5 Logical Address 



5.4 ERROR CODES 

5.4.1 TYPE (DRIVE) ERROR CODES 




1 
2 
3 
4 
5 
6 



No error 

No Index signal 

No Seek Complete 

Write Fault (SA1 000 only) 

Drive not ready 

Drive not selected (SA1000 only) 

No Track 00 



5.4.2 TYPE 1 (CONTROLLER) ERROR CODES 




1 
2 
3 
4 
5 
6 
7 
8 
9 
A 



ID read error. ECC or CRC (floppy) error in the ID field (uncorrectable). 

Uncorrectable data error during a read. 

ID Address Mark not found (possibly unformated disk). 

Data Address Mark not found. 

Record not found. Found correct cylinder and head but not sector. 

Seek error. R/W head positioned on a wrong cylinder and/or selected a wrong head. 

DMA Data time out error. No Host acknowledge within 256/iS. 

Write protected. (SA800/850 only) 

Correctable data field error. ECC error (automatic correction if not disabled). 

Bad track found 

Format Error. The controller detected that during the Check Track command, the format on 

the drive was not as expected. 
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5.4.3 TYPE 2 (COMMAND) ERROR CODES 

Invalid Command received from the host. 

1 Illegal logical sector address. Address is beyond the maximum address for the type of 
drive. 

2 Illegal function for the specified drive. 

5.5.4 TYPE 3 (MISC) ERROR CODES 

RAM error. Data error detected during Sector buffer RAM diagnostic. 

5.5 LOGICAL ADDRESS 

The logical address is computed as follows: 

Logical adr = (CYADR * HDCYL + HDADR) * SETRK 4- (SEADR) 

Where: CYADR = cylinder address 

HDADR = head address 
SEADR = sector address 
HDCYL = number of heads per cylinder 
SETRK = number of sectors per track 

Bit of Logical adr = the least significant bit. 
Bit 4 of Logical adr 2 = the most significant bit. 

Note: All addresses begin with 00. 
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6.0 SECTOR INTERLEAVE CODES 

In order to tailor host system data transfer speed to the disk rotational speed, sector interleaving is offered. 
Sixteen interleave codes are offered numbered 1 to 16. Not all interleave codes will result in optimum sector 
interleave, therefore the interleave should be chosen carefully. In order to maintain IBM floppy disk com- 
patibility in interleave code of 1 should be used. This will result in a non-interleave condition. 

6.1 SELECTING THE RIGID DISK INTERLEAVE CODE 

The interleave code given during the format command is used to calculate the logical sector number for the 
rigid disk as follows: Logical Sector = (Physical Sector x Interleave code) (mod 32). Note: when the logical 
sector number exceeds 31 the next logical sector is the lowest available physical sector. This does not 
always create a true modulo function. 

Two examples of interleave codes are shown: 



Interleave code of 2: 
Physical: * 

Logical: 



1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 

2 4 6 8 10 12 14 16 18 20 22 24 26 28 30 



Physical: 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 

Logical: 1 3 5 7 9 11 13 15 17 19 21 23 25 27 29 31 
Interleave code of 11: 

Physical: 12 3 4 5 6 7 8 ■ • 9 10* 11 12 13 14 15 

Logical: 11 22 1 12 23 2 13 24 3 14 25 4 15 26 5 



Physcial: 
Logical: 



16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 
16 27 6 17 28 7 18 29 8 19 30 9 20 31 10 21 









Minimum Number 




Number of Disk Revolutions 


Time available to Transfer one 


of Idle Sectors 


Code 


Required to Read One Track 


Byte of Data (including controller time) 


Between Reads 


11 


3 


4.7ms 


2 


8 


4 


7.0ms 


3 


6 


6 


9.4^s 


4 


5 


7 


11.7ms 


5 


4 


8 


16.4ms 


7 


3 


11 


23.4ms 


10 


2 


16 


35.1ms 


15 


1 


32 


72.5ms 


31 



• rtor SA1400 series controllers operating with SA1000 series drives - double density. 32 sectors. 256 bytes/ sector.] 
Note: Other codes will work, but require more revolutions of the disk to read all sectors of one track. 

TABLE 3. INTERLEAVE CODE SELECTION CHART* 
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7.0 DIAGNOSTIC PHILSOPHY 

7.1 BOARD RESIDENT MICRODIAGNOSTIC 

Fault Isolation Microdiagnostic (Optional) 

The controller can be further checked out off-line by initiating explicit microdiagnostic routines via optional 
firmware diagnostic sets. The routines are initiated by a set of control switches. Errors will be dislayed in a 
set of LED's. Each microdiagnostic checks the funtionality of a particular section of the controller and is 
able to isolate failures in the following major categories: 

ALU 

Registers 
Sector Buffer 
ECC Logics 

Fault-isolation techniques can be concentrated on the failing section. 
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8.0 STATUS LED ERROR INTERPRETATION 

Drive/controller error conditions are displayed on the 8 LED display lights provided near the J10 DC power 
connector (see Figures 11). The following list of hexadecimal numbered error codes describe error mean- 
ings. Note that these error codes do not necessarily match the request sense block error codes. LED 

number 7 is the MSB. 

01 No Index Detected 

02 No Track Zero Detected 

03 Illegal Logical Sector Address - beyond maximum sectors available for type of drive 

04 Drive Not Selected (SA1 000 only) 

05 No Seek Complete Detected 

06 ID Address Mark Not found (unformatted) 

07 Data Address Mark Not found 

08 Seek Error - R/W head not positioned on correct track 

09 Record Not found - found correct cylinder and head but not sector 
0A ID ECC or CRC error (uncorrectable) 

0B DMA Timeout Error - no Host acknowledge within 256/isec after request. 

0C Invalid Command Received from Host 

0D Incorrect Data Address Mark 

0E Incorrect ID Address Mark 

OF Incorrect Cylinder Address 

10 Incorrect Sector Address 

1 1 Incorrect Head Address 

12 Uncorrectable Data Field ECC or CRC error 

13 Correctable Data Field ECC error 

14 Drive Not Ready 

15 Write Fault (SA1000 and SA4000/4100 only) 

16 Spare 

17 , Write Protected (SA800/850 only) 

18 RAM Diagnostic Error 
19-1F Spare 

20 Parity Error 

21 Bad Sector found - a sector within a track that has been flagged bad has been found. 

22 Invalid function for this drive type. 
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9.0 CONTROLLER OPTION SELECTION 

9.1 PARITY SELECT JUMPERS 

Odd parity may be used by the Host system for data integrity verification. The controller will always output 
odd parity to the Host system. 

Odd parity checking by the controller may be allowed or inhibited by moving a 3 position jumper plug at W2 
located near the J6 Host connector (see Figure 11). With jumper at position A + B the controller will test for 
odd parity on all data input to the controller. With jumper at positon B + C the controller will not check for 
parity (normally shipped in A + B). 

9.2 DRIVE TYPE SELECTION DIPSWITCH 

The dipswitch settings for various types of drives for the SA1403D are shown below: 

Prom Set AS30 — I, II, III, IV CUSTOMER FIRMWARE: (DIP SWITCH set-up procedure) 

Location: 2H 



Switch Bits 

Field 
Definition 



8 7 


6 5 


4 3 


2 1 


LUNO 


LUN1 


LUN 2 


LUN 3 


Drive 


Drive 


Drive 


Drive 


Type 


Type 


Type - 


Type 





F 
F 



O 
N 



Drive 
Type 


Switch 
Setting 


Description 


Even 


Odd 



1 
2 
3 


on 
on 
off 
off 


on 
off 
on 
off 


SA1002 
SA1004 
SA800 
SA850 



2 heads, 256 cylinders 
4 heads, 256 cylinders 

1 head, 77 cylinders 

2 heads, 77 cylinders 



EXAMPLE: 
LOCATION: 23 



8 7 


6 5 


4 3 


2 1 


LUN 

Drive 

Type 

on on 


LUN 1 

Drive 

Type 

off on 


LUN 2 

Drive 

Type 

on off 


LUN 3 

Drive 

Type 

off off ' 



Drive is set up for SA1002 
Drive 1 is set up for SA800 
Drive 2 is set up for SA1004 
Drive 3 is set up for SA850 




F 
F 


N 
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10.0 TRACK FORMAT DESCRIPTION 

10.1 26 SECTOR FORMAT 

The 26 sector format is an IBM compatible format which employes FM single density encoding on all tracks 
of the single density format (IBM 3740 compatible) and on track 0, side of the double density format. This 
format yields 26 sectors of 128 bytes per sector. 

The remainder of the tracks on the double density formats are encoded with MFM double density which 
yields 26 sectors of 256 bytes per sector (IBM system 34 compatible). Figure 9 shows the two type of en- 
coding utilized. 



n 





PRE 

INDEX 
GAP 


INOEX 
SYNC 


INDEX 
AM 


GAP1 


ID 
SYNC 


10 
AM 


TRK 


HO 


F 
SEC 


REPEAT! 

SEC/ 
LEN. 


ED 26 TIMES (168 BYTES) 

OATA 
CRC GAP 2 SYNC 


DATA 
AM 


DATA 
FIELD 


crc 


GAP 3 


GAP4 




HEX DATA 


FF 


00 


FC 


FF 


00 


FE 


X 





X 





X 


FF 


00 


FB 


X 


X 


FF 


FF 




NUM. OF BYTES 


40 


6 


1 


26 


6 


1 


1 


1 


1 


1 


2 


11 


6 


1 


128 


2 


27 


247 

(NOM.) 





WRITE UPOATE 



FM FORMAT IBM 3740 





PRE 
INOEX 
GAP 


INOEX 
SYNC 


PRE 

INOEX 

AM 


INOEX 
AM 


GAP 

1 


ID 
SYNC 


PRE 
ID 
AM 


IO 
AM 


TRK 


RE 

HO 


PEATEC 
SEC 


J26TI 

SEC 

LEN 


U£S(37 

CRC 


SBYTl 

GAP 

2 


:S> 

DATA 
SYNC 


PRE 
OATA 
AM 


DATA 
AM 


DATA • 
FIELD 


CRC 


GAP 
3 


GAP 4* 




HEX DATA 


46 


00 


A1 


FC 


4E* 


00 


A1 


FE 


X 


X 


x 


01 


X 


4E 


00 


A1 


FB 


X 


X 


4E 


4E 




NUM. OF BYTES 


80 


12 


3 


1 


50 


12 


3 


1 


t 


1 


1 


1 


2 


22 




3 




256 


2 


54 


598 
(NOM.) 





WRITE UPOATE 



MFM FORMAT IBM SYSTEM 34 



FIGURE. 9. 26 SECTOR FORMAT - SA800/850 

10.2 32 SECTOR FORMAT 

The 32 sector format employs MFM encoding on all tracks of the SA1000. This format yields 32 sectors of 
256 bytes per sector. Figure 10 shows the 32 sector format. 
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GAP1 


SYNC 


PRE 
10 
AM 


IO 
AM 


CYL 


H.I 


SEC 


ECC 


GA 


»2 


PRE 

DATA 

AM 


DATA 
AM 


OATA 

FIELD 


ECC 


GA 


*3 


GAP* 




HEX DATA 


4E 


00 


A1 


FE 


X 


X 


X 


X 


00 


00 


A1 


F8 


X 


X 


00 


00 


4E 




NUM. 

OF byte; 


16 


13 


1 


1 


1 


1 


1 


3 


2 


13 


1 


1 


256 


3 


2 


15 


352 
(NOM.) 




WRITE UPP ATP 
























' 

































FIGURE 10- 32 SECTOR FORMAT- SA1000 
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11.0 DRIVE JUMPER SETTINGS 

11.1 JUMPER SETTINGS FOR SA800/801 FLOPPY 

The following information is contained in the SA800/801 Diskette Storage Drive OEM Manual, Shugart 
Associates, 1977. 

Jumper Name Function (Enabled if Jumper Installed) 

A Install enable DRSEL to drive selection 

B Install, Head Load on Drive Select 

C Remove, Drive Select loads heads 

D Remove, In Use to LED is disabled 

DC Remove, Disable Disk Change to return to controller 

DS Install enable stepper on Drive Select 

DS1-4 Install one only, DS1 = LUN (Drive Select) 

HL Remove, Head load on Drive Select 

L Jumper for -5V (remove for -15V), controller requires -5V only 

T1 Remove, Head Load terminator 

T2 Install, Pullup for Drive Select lines 

T3 Install, Direction terminator 

T4 Install, Step terminator 

T5 Install, Write Data terminator 

T6 Install, Write Gate terminator 

X Install, Head Load Enable 

Y Remove, Disable Hdld from driving LED 

Z Install drive select drives in use LED 

800 Install, enables 800 index only operation 

801 Remove, disables 801 mode operation 

11.2 JUMPER SETTINGS FOR SA850/8S1 FLOPPY 
Jumper Name Function (Enabled if Jumper Installed) 

Controller is compatible with the factory jumper configuration. See SA850/851 OEM Manual. 
Note: Jumpers must be set for SA850, not SA851 

11.3 JUMPER SETTINGS FOR SA1000 WINCHESTER 
Jumper Name Function (Enabled if Jumper Installed) 

Controller is compatible with the factory jumper configuration. See SA1000 OEM Manual. 
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APPENDIX A 



CP/M-80 2.2 BIOS Programming Considerations 



BIOS provides the operations necessary to access the disk drives and to 
interface with peripherals. The user interface with the BIOS is through a 
series of Entry Points. These entry points are "Jump Vectors". Each jump 
address corresponds to a particular subroutine which performs a specific 
function. The Base ( + B for the jump vectors) depends on the size of 
RAM memory. 



BIOS Entry Vector Table 



BIOS Cold Boot 
Entry Point: 
Function(s): 

Argument(s): 
Value(s) Returned: 
Registers Saved: 
Errors Returned: 



(Bbase + O0)-Bios 

This entry is called only by the Boot Loader to 

initialize CP/M. 

None 

None 

None 

None 



BIOS Warm Boot 

Entry Point: 
Function(s): 



Argument(s): 
Value(s) Returned: 
Registers Saved: 
Errors Returned: 



(Bbase + 03) - Bwboot 

Perform a Warm Start by reloading the CCP 

and BDOS from the disk in the A: drive, 

returning control to the CCP. 

None 

None 

None 

None in registers; however, message 'Boot Err' 

is displayed. 
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A1 



BIOS Console Status 

Entry Point: (Bbase + 06) - Bconst 



BIOS Console Input 
Entry Point: 



(Bbase + 09) -Bconin 



BIOS Console Output 
Entry point: 



(Bbase + 0C) - Bconot 



BIOS List Output 

Entry Point: 



(Bbase + OF) - Bprint 



BIOS Punch Output 
Entry Point: 



(Bbase + 12)- Bpunch 



BIOS Reader Input 
Entry Point: 



(Bbase + 15)-Breadr 



BIOS Home Disk 

Entry Point: 
Function(s): 

Arguments: 
Value(s) Returned: 
Registers Saved: 
Errors Returned: 



(Bbase + 18)-Bhome 

Sets track number to zero in preparation for 

disk access. 

None 

None 

None 

None 
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BIOS Select Disk 

Entry Point: 
Function(s): 



(Bbase+1B)-Bseld 

Select the requested logical disk. The drive 
that will be logged on in further operations is 
the default drive (or drive A if the default drive 
cannot be selected). 



Arguments: 


(C) = 


drive to select (00 -OF) 




(E) = 


even if media identification required 




(E) = 


odd if media identification 
previously issued and no disks 
removed/replaced 


Value(s) Returned: 


(HL) = 


address of CP/M-compatible Disk 
Parameter Header if select successful 




(HL) = 


otherwise 


Registers Saved: 


None 




Errors Returned: 


None 




BIOS Set Track 






Entry Point: 


(Bbase + 


1E)-Bsett 


Function(s): 


Stores desired track number in preparation for 




a disk read or write record call. 


Argument(s): 


(BC) = 


track number 


Value(s) Returned: 


None 




Registers Saved: 


None 




Errors Returned: 


None 




BIOS Set Sector 






Entry Point 


(Bbase + 


21)-Bsets 


Function(s): 


Stores desired sector number in preparation 




for a read or write record call. 


Argumeht(s): 


(BC) = 


sector number 


Value(s) Returned: 


None 




Registers Saved: 


None 




Errors Returned: 


None 
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BIOS Set DMA Address 
Entry Point: 
Function(s): 

Argument(s): 
Value(s) Returned: . 
Registers Saved: 
Errors Returned: 



(Bbase + 24) - Bsetd 

Stores desired transfer address in preparation 

for a read or write a record call. 

(BC) = transfer address 

None 

None 

None 



BIOS Read Sector 
Entry Point: 
Function(s) 



Argument(s): 

Value(s) Returned: 
Registers Saved: 
Errors Returned: 



(Bbase + 27) - Bread 

Transfer one 128 (decimal) byte record from 

the selected disk to the current DMA transfer 

address. 

Bseld, Bsett, Bsctrn, Bsets, Bsetd previously 

called. 

None 

none 

(A) = 00 if no error 

(A) = FF if error 



BIOS Write Sector 
Entry Point: 
Function(s): 



Argument(s): 

Value(s) Returned: 
Registers Saved: 
Errors Returned: 



(Bbase + 2A) - Bwritt 

Transfer one 128 (decimal) byte record from 

the current DMA transfer address to the 

selected disk. 

Bseld, Bsett, Bsctrn, Bsets, Bsetd previously 

called. 

None 

None 

(A) =" 00 if no error 

(A) = FF if error 



BIOS List Status 
Entry Point; 



(Bbase + 2D)-Bprnts 
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BIOS Sector Translate 

Entry Point: (Bbase + 30) - Bsctrn 

Function(s): Translate a logical sector number into a 

physical sector number in preparation for a call 

to Bsets, the BIOS set sector call. 
Argument(s): (BC) = Sector number 

(0 < = (BC) < sectors per track 

(DE) =s Skew table address obtained from 
the CP/M Disk Parameter Header 
Value(s) Returned: (HL) = (BC) if (DE) = 

(L) = [(DE) + (BC)]if(DE) = 

(H) = (B) should be 
Registers Saved: None 

Errors Returned : None 



Appendix A AS 



Notes 



A6 Appendix A 



APPENDIX B 



Monitor Entry Vector Table 



F000H 


Cold start monitor 


F003H 


Warm start monitor 


F006H 


Keyboard status 


F009H 


Keyboard input 


FOOCH 


CRT output 


FOOFH 


Fast CRT output from C 


F012H 


SIO channel B input status 


F015H 


SIO channel B input 


F018H 


SIO channel B output 


F01BH 


Drive select 


F01EH 


Home r/w head 


F021H 


Seek to track 


F024H 


Read sector 


F027H 


Write sector 


F02AH 


Execute physical driver request 


F02DH 


Set direct CRT cursor 


F030H 


Direct CRT display 


F033H 


CRT memory block move 


F036H 


Return address of disk mapping table 


F039H 


Return address of day variable 


F03CH 


Return configuration status 


F03FH 


SIO channel B output ready status 


F042H 


Set configuration 


F045H 


Start screen print 


F048H 


Accessible 1 -second interrupt 


F04BH 


Console status through iobyte 


F04EH 


Console input through iobyte 


F051H 


Console output through iobyte 


F054H 


Printer output through iobyte 


F057H 


Printer status through iobyte 


F05AH 


Communications input ready status 


F05DH 


Communications input data 


F060H 


Communications output data 


F063H 


Communications output ready status 


F066H 


Idle while i/o is pending 


F069H 


Record soft error 
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Documented System Storage and Structures 



Z80-A Mode 2 Interrupt Vectors 



FFOO 


SIOVO: 


DEFS2 


;Z80-ASIO 


FF02 


SIOV1: 


DEFS2 


;Z80-ASIO 


FF04 


SIOV2: 


DEFS2 


;Z80-ASIO 


FF06 


SIOV3: 


DEFS2 


;Z80-ASIO 
condition 


FF08 


SIOV4: 


DEFS2 


;Z80-ASIO 


FFOA 


SIOV5: 


DEFS2 


;Z80-ASIO 


FFOC 


SIOV6: 


DEFS2 


;Z80-ASIO 


FFOE 


SIOV7: 


DEFS2 


;Z80-ASIO 
condition 



port B xmit buffer empty 
port B external/status change 

• port B receive data available 

i port B special receive 

port A xmit buffer empty 
i port A external/status change 
» port A receive data available 
i port A special receive 



FF10 CTCVO: DEFS2 

FF12* CTCV1: DEFS2 

FF14 CTCV2: DEFS2 

FF16* CTCV3: DEFS2 



;Z80-A CTC channel interrupt 
;Z80-ACTC channel 1 interrupt 
;Z80-A CTC channel 2 interrupt 
;Z80-A CTC channel 3 interrupt 



FF18 SYSVA: DEFS2 
FF1A* SYSVB: DEFS2 



;System Z80-A PIO port A interrupt 
;System Z80-A PIO port B interrupt 



FF1C 


GENVA: 


DEFS2 


; General purpose Z80-A PIO port A 
interrupt 


FF1E 


GENVB: 


DEFS2 


; General purpose Z80-A PIO port B 
interrupt 



^Vectors used by the Monitor ROM 



Keyboard Data Input FIFO Variables 

FF20 fifo: defs 16 ;Console input fifo 

FF30 fifcnt: defs 1 ; FIFO data counter 

FF31 fifin: defs 1 ; FIFO input pointer 

FF32 fifput: defs 1 ;FIFO output pointer 



FF33 



defsl 



; Round address 
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CI 



More Interrupt Vectors 
FF34 expvec: defs8 



;Space for 4 vectors for expansion slot 



Available Memory Pointers 

FF3C availb: defs2 
FF3E availt: defs 2 



; Bottom of available memory 
;Top of available memory 



End of documented storage locations 



Logical to Physical Drive Mapping Tables 

Seltab contains two bytes per logical CP/M drive A-P. The first byte is an 

index into the physical driver address table (see next table). The second 

byte is a unit number that is passed to the driver by the XQDVR 

dispatcher. 

Seltab: 



A: 


defb 


1,0 


Floppy unit 


B. 


defb 


1,1 


Floppy unit 1 


C 


defb 


1,2 


Floppy unit 2 


D 


defb 


1,3 


Floppy unit 3 


E 


defb 


1,4 


Rigid partition 


F 


defb 


1,5 


Rigid partition 1 


G 


defb 


1,6 


Rigid partition 2 


H 


defb 


1,7 


Rigid partition 3 


1 


defb 


0,0 


Error driver 


J 


defb 


0,0 


Error driver 


K 


defb 


0,0 


Error driver 


L 


defb 


0.0 


Error driver 


M 


defb 


0,0 


Error driver 


N 


t defb 


0,0 


Error driver 





defb 


0,0 


Error driver 


P 


: .defb 


0,0 


Error driver 
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Physical Driver Address Table 

Drvtab contains the addresses of several independent physical disk 
drivers. By convention, driver number always returns a select error. 
Unused entries in Seltab should point tOvthis trivial driver. 



Drvtab: defw Selerr ;Select error physical driver 
defw Dskdvr ; Disk driver (WD or SA) 
defw ; Empty physical driver 

; Expansion slots 



defw 
defw 
defw 
defw 
defw 







0-1 



;Mark last entry 



Physical Driver Request Block 



db 


command 


;FF = Select 
;00 = Write 
;01 = Read 


ds 


1 


; For system use 


db 


Ldrive 


; Logical drive for request (00 - OF) 


dw 


Track 


;Track number for request 


dw 


Sector 


;Sector number for request 


dw 


Address 


; Address of sector buffer for request 
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Time-of-Day and Timer Variables 



Milsec: 


ds 


2 


; Location incremented by CTC1 
interrupt 




ds 


2 


; (unused)' 


Ticker: 


ds 


2 


; Increments once per second 


Steprt: 


ds 




; WD 1797 step rate 


Motor: 


ds 




; Disk motor/select timeout (1 Hz) 


HL- Day: 


ds 




,01-31 


Month: 


ds 




,01-12 


Year: 


ds 




,80-99 


Hour: 


ds 




; 00-23 


Minute: 


ds 




,•00-59 


Second: 


ds 




;00-59 


Linbuf: 


ds 


80 


; Line buffer 
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How To Make Monitor Calls from Basic 

Several of the monitor function calls return the value in the HL register if 
the H register equals 0, or return the value at the address pointed to by 
the HL register if the H register is not zero. This convention allows 
Microsoft Basic Users to access these functions directly. The examples 
listed in this section demonstrate this feature of the ROSR ROM. 



100 ' 

110 ' Make 820-11 Monitor call to get address of day variable, then 

1 20 ' Print Day, Month etc. 

130 ' 

140 DATA Day,Month,Year,Hour,Minute,Second 

150 ' 

160 DEFINTI 

170 GETTOD = &HF039:CALLGETTOD(I) 'Return Add. of Day 

180 FORX = 0TO5 

190 READX$ 

200 PRINT USING "\ \ ##;X$,PEEK(I + X) 

210 NEXTX 

220 END 



100 ' 

110 'Do configuration status call & print value returned 

120 ' 

130 DEFINTI 

140 GETCON = &HF.03C:CALL GETCON(I) 'Get config status 

150 PRINT CHR$(26); 'Clear Screen 

160 PRINT "The configuration status word is - "; 

170 PRINT HEX$(I); 

180 PRINT "(Hex)" 

190 END 
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Example Using Line Delete To scroll screen up. 

Make 820-11 Monitor Call to get address of day variable 

then calculate address of line input buffer variable. 

Clear screen, fill screen with characters, position 
Cursor back on top line, send line delete code to CRT, 
This moves the line deleted from the top of the screen 
To the input buffer. 

Recall deleted line from line input buffer & display 
on line 23 of the screen. 



100 

110 

120 

130 

140 

150 

160 

170 

180 

190 

200 

210 

220 

230 WIDTH 255 

240 PRINT CHR$(5),""; 'Remove cursor 

250 DEFINTI 

260 GETTOD = &HF039:CALL GETTOD(I) 'Get address of Day Variable 

270 1 = 1 + 6 'Line input buffer is at Day + 6 

280 PRINT CHR$(26); 'Clear screen 

290 FORX=1T0 23 

300 PRINT STRING$(80,CHR$(X + 64)); 'Fill Screen 

310 NEXTX 

320 ' 

330 FORM=1TO100 'Do 100 lines 

340 PRINT CHR$(30); 'Put Cursor back on top line 

350 PRINT CHR$(27);"R"; 'Do line delete, move deleted 

360 'Line to buffer. 

370 PRINT CHR$(27);" = ";CHR$(32 + 22);CHR$(32) 

380 FOR X = TO 79 'Now print characters back from 

390 . PRINT CHR$(PEEK(I + X); 'Input buffer 

400 NEXTX 

410 NEXTM 

420 PRINT CHR$(26);CHR$(5);CHR$(2); 'Clear screen and 

430 ' Restore Cursor. 

440 END 
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Example Using Line Insert To scroll screen down. 
Make 820-11 Monitor Call to get address of day variable 
then calculate address of line input buffer variable. 

Clear screen, fill screen with characters, position 
Cursor back on top line, send line insert code to CRT, 
This moves the line deleted from the bottom of the screen 
To the input buffer. 

Recall deleted line from line input buffer & display 
on the first line of the screen. 



100 

110 

120 

130 

140 

150 

160 

170 

180 

190 

200 

210 

220 

230 WIDTH 255 

240 PRINT CHR$(5);""; 'Remove cursor 

250 DEFINTI 

260 GETTOD = &HF039:CALL GETTOD(I) 'Get address of Day Variable 

270 l = l + 6 'Line input buffer is at Day + 6 

280 PRINT CHR$(26); 'Clear screen 

290 FORX=1T0 23 

300 PRINT STRING$(80,CHR$(X + 64)); 'Fill Screen 

310 NEXTX 

320 ' 

330 FORM = 1 TO 100: 'Do 100 lines 

340 PRINT CHR$(30); 'Put Cursor back on top line 

350 PRINT CHR$(27);"E"; ' Do line insert, move deleted 

360 'Line to buffer. 

370 PRINT CHR$(27);" = ";CHR$(32 + 22);CHR$(32) 

380 FORX = 0TO79 'Now print characters back from 

390 PRINT CHR$(PEEK(I + X); 'Input buffer 

400 NEXTX 

410 NEXTM 

420 PRINT CHR$(26);CHR$(5);CHR$(2); 'Clear screen and 

430 ' Restore Cursor. 

440 END 
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Bank Switching 

The Bank control switch is bit 7 of port 1C 
Bit 7= = Bank 1 (RAM) 
Bit 7 = 1 = Bank (ROM) 

Change bit 7 only: Bits through 6 should be maintained. 

Bank and 1 are mutually exclusive; data movement to or from 
one bank will not affect the other. 

When bank switching, the driver code must be executed at COOOh 
or above; the upper 16K (COOOh-FFFFh) is common memory to 
both banks. 



For example, 

Dl 

INA,(1Ch) ;read port 

SET7,a ;set bit 

El 

OUT(1Ch),a ;output 

Dl 

IN A,(1Ch) 

RES7,a ;resetbit 

El 

OUT(Kh) 
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I 1 

2 

3 

4 

5 

6 

7 

B 

9 

10 

1 1 

12 

13 

14 

15 

16 

17 

IB 

19 

20 



0191 



title Balcones Operating System for the XEROX 820-11 
.zBO 



Balcones Operating System for XEROX B20-II. 
Copyright 19B2 (C) Balcones Computer Corporation 

All rights reserved 

Robert Burns, Bcc. 



def I 



401 



subttl Symbol Definitions 
page 



m Balcones Operating System for 
^ Symbol Definitions 



the XEROX 820-11 MACRO-BO 3.44 



09-Dec-81 



> 

TJ 

<t> 

a. 
x' 
rn 



21 




22 


FFFF 


23 


0000 


24 




25 


0000 


26 




27 




28 




29 


0000 


30 


1800 


31 


1800 


32 


0800 


33 


0003 


34 


0080 


35 


ED80 


36 


FFOO 


37 


FOOO 


38 


3000 


39 


3C00 


40 


0030 


41 


003C 


42 




43 




44 




45 


0000 


46 


0004 


47 


0005 


48 


OOOfc- 


49 


0007 


50 


0008 


51 


0009 


52 


OOOA 


53 


0008 


54 


OOOC 


55 


0010 


56 


0014 


57 


0018 


58 


0018 


59 


0019 


60 


001A 


61 


001D 


62 


001C 


63 


0010 


64 


00 IE 


65 


00 IF 


66 


0028 


67 


0029 


68 


0030 


69 


003 1 


70 


0034 


71 


0035 


72 


0036 


73 


0068 


74 


0069 


75 





t rue 
fa 1 se 

debug 



equ 
equ 



equ 



-1 

not true 



fat se 



; assemble ram loader 



Absolute Memory Addresses. 



rom 


equ 


OlOOOh and de 


romsi z 


equ 


Q1000h+((not 


Rx 1984 


equ 


01800h 


Lx 1984 


equ 


OOBOOh 


i oby te 


equ 


00003h 


boot Id 


equ 


OOOBOh 


bootbf 


equ 


0ed80h 


ram 


equ 


OffOOh 


mon i t r 


equ 


OfOOOh 


crtmein 


equ 


03000h 


crtmax 


equ 


crtmem+24*l28 


crtbas 


equ 


high crtmein 


crt top 


equ 


high crtmax 



I/O Port Addresses. 



bauda 


equ 


OOh 


s i odpa 


equ 


04h 


s iodpb 


equ 


05h 


s iocpa 


equ 


06h 


s i ocpb 


equ 


07h 


gpi oda 


equ 


08h 


gpioca 


equ 


09h 


gpiodb 


equ 


Oah 


gpi ocb 


equ 


Obh 


baudb 


equ 


Och 


wd!797 


equ 


lOh 


scro 1 1 


equ 


14h 


etc 


equ 


18h 


ctcO 


equ 


18h 


ctel 


equ 


19h 


ctc2 


equ 


lah 


ctc3 


equ 


Ibh 


s y s p i o 


equ 


Ich 


sysc t 1 


equ 


Idh 


kbddat 


equ 


leh 


kbdet 1 


equ 


Ifh 


bel lof 


equ 


28h 


be 1 I on 


equ 


29h 


s 1 sden 


equ 


30h 


s 1 dden 


equ 


31h 


chroml 


equ 


34h 


chrom2 


equ 


35h 


lowl i te 


equ 


36h 


async 


equ 


68h 


sync 


equ 


69h 



bug;non resident code base 
debug) and 0800h) 

prescription for the future 

length of future 

i/o byte 

boot loader address 

boot loader buffer 

system ram page address 

resident monitor address 

crt memory address 

crt maximum address 

starting page of display ram 

ending page of display ram 



channel a baud rate generator 

sio data port A (communications) 

sio data port B (printer) 

sio control/status port A 

sio contro 1 /status port B 

general purpose parallel l/o A data 

general purpose parallel i/o A control 

general purpose parallel i/o B data 

general purpose parallel i/o B control 

channel b baud rate generator 

western digital disk controller base 

crt bottom line scroll register 

quad counter/timer circuit 

etc channel (user) 

etc channel 1 (msec, screen print) 

etc channel 2 (one second prescaler) 

etc channel 3 (one second) 

system pio data 

system pio control 

keyboard data 

keyboard control 

turn be 1 1 off 

turn be 1 1 on 

select single density 

select double density 

select ROM 1 character 

select ROM 2 character 

select low intensity attribute 

set internal clocks for asynchronous sio A 

set external clocks for synchronous sio A 



generator 
generator 



> 

rt> 

x' 
m 
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76 




77 




78 


0007 


79 


0006 


80 


0004 


81 




82 




83 




84 


0004 


85 


000A 


86 


000D 


87 


001 1 


88 


0013 


89 


001B 


90 


001A 


91 




92 




93 




94 


00 IE 


96 


009E 


96 


0Q9B 


97 




98 




99 




100 


0035 


101 


0061 


102 


0061 


103 




104 




105 




106 


8000 


107 


4000 


108 


2000 


109 


1000 


1 10 


0800 


1 1 1 


0400 


1 12 


0200 


1 13 


0100 


1 14 


0080 


1 15 


0040 


1 16 


0020 


1 17 


0010 


1 18 


0008 


1 19 


0004 


120 


0002 


121 


0001 


122 




123 


0000 


124 


0000 


125 


0000 


126 


0000 


127 


x 


128 


BFFF 


129 




130 




131 





Configuration Status Byte Bit Definitions. 



c.keym equ 7 

c.sasi equ 6 

c.f ive equ 4 

: : Asc i i . 



eot 


equ 


04h 


If 


equ 


Oah 


cr 


equ 


Odh 


xon 


equ 


11 h 


xoff 


equ 


13h 


esc 


equ 


Ibh 


c 1 rs 


equ 


lah 



Keyboard upper bit is passed 
Shugart SA-1403D Disk Controller 
Five inch micro floppies 



; asci i end of text 

;asci i 1 ine feed. 

;ascii carriage return 

; asci i Xon 

;ascii Xoff 



;ascii escape 
jclear screen 



Special Key Constants. 



Helpkey equ 
Scrprt equ 
Abort equ 



Oleh 
09eh 
09bh 



.Screen Print key CTRL <HELP> 
;Automatic Abort CTRL <ESC> 



Bell Constants. 



bltim equ 
blonc equ 
blofc equ 



35h 
61h 
61h 



bel 1 1 oop t ime 
be 1 1 on t ime 
bell off time 



Assembly Options. 



o 


resv 


equ 


o 


auto 


equ 


o 


he 1 p 


equ 


o 


prot 


equ 


o 


ddvr 


equ 


o 


baud 


equ 


o 


inpc 


equ 


o 


outc 


equ 


o 


verf 


equ 


o 


ramt 


equ 


o 


di sk 


equ 


o 


esct 


equ 


o 


type 


equ 


o 


f i 1 1 


equ 


o 


mov/e 


equ 


o 


term 


equ 



1000000000000000b 
0100000000000000b 
0010000000000000b 
0001000000000000b 
0000100000000000b 
0000010000000000b 
0000001000000000b 
0000000100000000b 
00000000 1 0000000b 
0000000001000000b 
0000000000100000b 
0000000000010000b 
0000000000001000b 
0000000000000100b 
00000000000000 1 0b 
0000000000000001b 



reserved 

auto boot A: 

help command 

printer protocol 

disk drivers 

baud rate set command 

in command 

out command 

verify memory block 

simple ram test 

console disk read/write commands 

escape command table 

typewriter mode 

fill memory 

move memory 

terminal scroll driver 



options def 1 

opt i ons def 1 

options defl 

options defl 

opt i ons def 1 



debug and not o.ddvr and not o.esct 

options arid not o.disk and not o.resv 

options and not o.verf and not o.fill 

options and not o . ramt 

(not debug or o.esct) and not o.auto 



configuration sector offsets. 
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Symbol Definitions 

bootbf +255-32 

2 . scra+ 1 

z . stpr+2 

2 . keym+ 1 

z .sioA-i- 10 

2 .sioB+10 

2 . siom+2 

2 . siov+2 

2 . xonp+2 

2 . baua+ 1 

2 . baub+ 1 



132 


EE5F 


133 


EE60 


134 


EE62 


135 


EE63 


136 


EE6D 


137 


EE77 


138 


EE79 


139 


EE7B 


140 


EE7D 


141 


EE7E 


142 


EE7F 


143 




144 




145 




146 


0007 


147 


0006 


148 


0005 


149 


0004 


150 


0002 


151 


0000 


152 




153 




154 





2 


sera 


equ 


2 


stpr 


equ 


2 


key in 


equ 


2 


. s i oA 


equ 


2 


sioB 


equ 


2 


. s i om 


equ 


2 


. s i ov 


equ 


2 


. xonp 


equ 


2 


baua 


equ 


2 


. baub 


equ 


2 


iobt 


equ 



initial screen attribute 

floppy step rate 

keyboard mask * 

sio A ini t 

si o B ini t 

clear to send 1 ow/h1gh/ignore 

data carrier detect low/high/ ignore 

Xon/Xoff protocal 

comin channel baud rate 

printer baud rate 

ini t ial i /o byte 



parallel printer status bits. 



; acknow 1 edge 
; on 1 ine 
; ready to input 
;ready to output 
idata stobe 
;auto LF enable 

Code Generation Control Macros Definitions 



p 


ackn 


equ 


7 


p 


on 1 n 


equ 


6 


p 


rdy i 


equ 


5 


p 


rdyo 


equ 


4 


p 


strb 


equ 


2 


p 


auto 


equ 









subt t 1 


C 






page 





Ba I cones Opera liny 
Code Generation Cut 

155 

156 

157 

158 

159 

160 

161 

162 

163 

164 

165 

166 

167 

168 

169 

170 

171 

172 V 

173 

174 

175 • 

176 

177 

178 

179 

180 

1 182 
183 
184 
185 
186 
187 
188 
189 
190 
191 
192 
193 
194 
195 
196 
197 
198 
199 
200 
201 
202 
203 
204 
205 
206 
207 
208 
209 
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Rom code placement macros. 



The Common Segment holds the non-resident (banked) portion 
of the monitor. This segment is not copied to ram. 

The Data Segment holds the resident portion of the monitor. 
It is moved to ram at location M0NITR during initialization. 

The Code Segment holds the various Transient Commands. Each 
command is loaded from the ROM to the TPA when it is executed. 

The following macros keep it all straight. 

below - Generate code for rom below. 



be 1 ow 



above 



over lay 
t loc 
addr 



macro 
segment b 
endm 



; ; enable common segment 
above - Generate code for ram above. 

;;enable data segment 



macro 
segment d 
endm 



bseg 
sega 

segment 
s&space 



Overlay - Generate code for transients. 

macro addr 

defl t)oc+$-cloc 

equ t I oc+bl oc+c I oc-Moni t r 

segment c ;;enable code segment 

endm 

bseg - activate common segment. 

macro 

common /COMROM/^ 

defs comres 

defl $ 

endm 



segment 



Activate Segment. 



macro s 

update 

defl -1 

s&seg 

.phase s&loc 

endm 



;update active phase counter 

;set enabled segment active 

; activate segment code placement 

;set absolute segment location counter 



update 



update - Update Phase Counters, 
bspace 



macro 
if 



m 
en 


Ba l cones 


Opera 


Co tie Genera t i 01 




2 10 






21 1 






212 






213 






214 






215 






216 






217 






. 218 






219 






220 






22 1 


1 




222 






223 






224 






225 






226 






227 


0000 




228 


F000 




2 29 


0000 




230 


0000 




231 


0000 




232 


0000 




233 


0000 




234 


0000 




235 






236 






237 
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tpal 



x&l oc 



x&space 



b I oc 

dloc 

t loc 

tpal 

bspace 

cspace 

dspace 

comres 



defl 

end if 

i rpc 

if 

if 

if 

def 1 

endi f 

e 1 se 

def 1 

endi f 

defl 

. dephase 

endi f 

endm 

en dm 

def 1 
defl 
defl 
def 1 
def 1 
defl 
defl 
def 1 

subtt 1 
page 



$-rom-H00h-3 



x , <bcd> 
x&space 
cspace 
tpal It 
$-c loc 



rom 

moni t r 















($-cloc) 



if segment active 



;save segment address 

jelear segment active 
irevert to relocatable 



-.establish non-resident code base 
;establish resident code base 
jestablise Transient code base 
;establish maximum transient length 
ipreset common segment inactive 
jpreset code segment inactive 
-.preset data segment inactive 
; preset common base address 



Ram Loader for Testing Only 



> 

•a 

a> 

a. 
x' 
m 



> 

13 

n> 
a. 
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238 








239 








240 


0000! 






24 1 


0000! 






242 








243 


0000 ! 


2 1 


OOFD! 


244 


0003! 


01 


17FF 


245 


0006! 


IE 


00 


246 


0008! 


7E 




247 


0009! 


23 




248 


000A ! 


83 




249 


000B! 


5F 




250 


000C! 


OB 




251 


000D! 


78 




25 2 


000E! 


B1 




253 


000F ! 


20 


F7 


254 


UUI1! 


7B 




255 


0012! 


ED 


44 


256 


0014! 


77 




257 


0015! 


C3 


0000 


258 








259 








260 











bseg 






defs 


comres 


ent ry : 






xcks : 


Id 


h 1 , bbase+mov 1 n 




Id 


be , roms i z- 1 




Id 


e.O 


xcksl : 


Id 


a, (hi) 




inc 


hi 




add 


a , e 




Id 


e , a 




dec 


be 




Id 


a,b 




or 


c 




jr 


nz , xcks 1 




Id 


a , e 




neg 






Id 


(hi ) ,a 




JP 







subtt 1 


System Initial 




page 





jpreset checksum 



; store twos complement of checksum 
jstore checksum 



m 



m 

CO 
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> 

<T> 
3 
Q- 

X* 
m 



261 
262 
263 
264 
265 
266 
267 
260 
269 
270 
271 
272 
273 
274 
275 
276 
277 
278 
279 
280 

28 1 
202 
203 
284 
285 
286 
287 
288 
289 
290 

29 1 
292 
293 
294 
295 
296 
297 
298 
299 
300 
301 
302 
303 
304 
305 
306 
307 
308 
309 
310 
31 1 
312 
313 
314 
315 



0018! 
0018! 



00E5 
OOFD 



0000! 



bbase : 



mov 1 n 

comres 



0000 


F3 




0001 


AF 




0002 


3D 




0003 


20 


FD 


0005 


ED 


73 FFEO 


0009 


2 2 


FFE2 


OOOC 


El 




000D 


2 2 


FFE4 


00 10 


09 




00 1 1 


1C 




0012 


3 1 


3839 


0015 


31 


4142 


00 18 


4C 




0019 


43 




00 1 A 


4F 




001B 


4E 




00 1C 


45 




001D 


53 




001E 


43 




001F 


4F 




0020 


4D 




0021 


50 




0022 


55 




0023 


54 




0024 


45 




0025 


5 2 




0026 


08 




0027 


3E 


17 


0029 


D3 


14 


002B 


2 1 


3000 


002E 


36 


20 


0030 


1 1 


3001 


0033 


01 


OBFF 


0036 


ED 


BO 


0038 


31 


FOOO 


003B 


2 1 


AA55 


003fc v 


CI 




003F 


E5 




0040 


D1 




004 1 


C5 





def s 

equ 
def I 

be 1 ow 
def s 

prs 



; symbol for accessing non-resident base address 
100h-($-(entry-3)) ,-1 

$-bbase 
100h-3 



jgenerate non-resident code 



preset storage. 



Entry: Power up or Reset button. 



prs : 


di 


; 




xor 


a 


prs 1 : 


dec 


a ; 




jr 


nz , prs 1 




Id 


( rstsp) , Sp ; 




Id 


(rsthl).hl ; 




pop 


hi ; 




Id 


(rstpc) ,hl 




ex x 


; 




inc 


e 




Id 


sp,3839h ; 




Id 


sp,4142h 




Id 


c t h 




Id 


b.e ; 




Id 


c ,a ; 




Id 


c.(hl) ; 




Id 


b , 1 




Id 


d.e 




Id 


B.e ; 




Id 


C.a ; 




Id 


C. 1 




Id 


d,b 




Id 


d. 1 




Id 


d,h 




Id 


b, 1 




Id 


> d,d 




ex 


af , af ' 




Id 


a, 24-1 ; 




out 


(scrol l),a 5 




Id 


' hi, crtmeiii ; 




Id 


(hi),' ' 




Id 


de , crtmamt 1 




Id 


be , c r t ma x-crt mem- 




Idir 


• 




Id 


sp.monitr ; 


p r s 2 -. 


Id 


hi ,0aa55h ; 




pop 


be ; 




push 


hi ; 




pop 


de 




push 


be ; 



1 ock up system 

the pause that refershes 

save partial reset state 
in case the luser go boom 
pick possible return off stack 

give primary registers half a break 

load strange values in SP 

insure 
regi sters 
can 
forget 
insure 
regi sters 
can 
copy 



line up bottom of screen 
ini t scro 1 1 port 
clear display memory 



-1 



pray the video hardware works 

insure monitor ram ok 

walk checker board through ram 

read ram 

write ram fast 

read ram fast 

put ram back 
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a> 


316 


0042 


F1 




r> 


317 


0043 


90 




Q. 


318 


0044 


20 


76 


x" 


319 


0046 


ED 


52 


m 


320 


0048 


20 


72 




321 


004A 


3B 






322 


004B 


3F 






323 


004C 


ED 


7A 




324 


004E 


20 


EB 




325 


0050 


31 


0000 




326 


0053 


2 1 


0000 




327 


0056 


01 


1000 




320 


0059 


CD 


OOAF 




329 


005C 


20 


63 




330 


005E 


2 1 


00E6 




331 


0061 


06 


00 




332 


0063 


4E 






333 


0064 


23 






334 


0065 


5E 






335 


0066 


23 






336 


0067 


56 






337 


0060 


23 






338 


0069 


ED 


BO 




339 


006B 


CB 


7E 




34 


006D 


20 


F2 




341 


006F 


23 






342 


0070 


46 






343 


007 1 . 


23 






344 


0072 


4E 






345 


0073 


23 






346 


0074 


ED 


B3 




347 


0076 


CB 


7E 




348 


0078 


20 


F6 




349 


007A 


DB 


IE 




350 


007C 


ED 


5E 




35 1 


007E 


3E 


FF 




352 


0080 


ED 


47 




353 


0082 


2 1 


041B 




354 


0085 


1 1 


FOOO 




355 


0080 


1 


OFOO 




356 


000B 


ED 


BO 




357 


OOOD 


2 1 


1800 




358 


0090 


1 


0800 




359 


0093 


CD 


OOAF 




360 


0096 


20 


14 




361 


0090 


2 A 


1FFD 




362 


009B 


1 1 


55AA 




363 


009E 


ED 


52 




364 


OOAO 


2 1 


FADB 




365 


00A3 


1 1 


F360 




366 


00 A 6 


1 


FC55 




367 


00A9 


CC 


1800 




360 


OOAC 


C3 


FC55 




1 369 










370 


OOAF 


IE 


00 


m 


371 


00B1 


7E 













prs3 : 



prs4 : 



p r s 5 : 

ccs : 

ccsl: 



pop 

sub 

jr 

sbc 

jr 

dec 

ccf 

adc 

jr 

Id 

Id 

Id 

cal 1 

jr 

Id 

Id 

Id 

inc 

Id 

inc 

Id 

inc 

Idir 

bi t 

jr 

inc 

Id 

inc 

Id 

inc 

ot ir 

bit 

jr 

in 

i in 

Id 

Id 

Id 

Id 

Id 

Idir 

Id 

Id 

cal I 

jr 

Id 

Id 

sbc 

Id 

Id 

Id 

cal 1 

JP 

Id 
Id 



af 
b 

nz.errl 
hi ,de 
nz.errl 
sp 

hi , sp 

nz ,prs2 

sp, stack 

hi ,prs 

be , roms i z 

ccs 

n z , e r r 2 

hi , intab 

b.O 

c,(hl) 

hi 

e.(hl) 

hi 

d,(h»). 

hi 

7. (hi) 

z ,prs3 

hi 

b,(hl) 

hi 

c,(hl) 

hi 

7, (hi) 

z ,prs4 

a, (kbddat ) 

2 

a, high vectab 

i ,a 

hi , rbase 

de ,moni tr 

be , rani-moni t r 



hi ,Rx 1984 

bc.Lx 1984 

ccs 

nz , prs5 

hi . (Rx1984 + Lx1984-3) 

de,55aah 

hi ,de 

hi , cmdtab 

de ,se 1 tab 

bc.cloc 

z,Rx1984 

s i gnon 



; and verify it 

; i f ram fail ure 

;if ram or register failure 
;advance test address 

{if top of memory not reached 
;set monitor stack 
; set rom address 

s'compute check sum 

; i f bad rom 

;point to default variable table 

;set data block length 

;set variable address in ram 



; point to initial values 

jcopy data from rom to variables in ram 

;if more data to preset 
{point to i/o ini't data table 
;set number of bytes to preset 

;set i/o port address 

jshoot preset data to i/o device 

;if more devices require initialization 

; assert PARDY 

{select interrupt mode 2 

;set interrupt vector page 

;set resident base address 
;set monitor address 
;set max resident length 
;plant monitor upstairs 
{prognosticate 



e.O 
a, (hi) 



; FutureShock 

;Signon Resident Monitor 

{preset ckecksum 



Balcones Operating System for the XEROX 820-11 
System Initialization 



MACRO-BO 3.44 



Q9-Dec-81 



372 


00B2 


23 






373 


00B3 


83 






374 


00B4 


5F 






375 


. 00B5 


OB 






376 


00B6 


78 






377 


00B7 


B1 






378 


OOBB 


20 


F7 




3 79 


OOBA 


B3 






380 


OOBB 


C9 






38 1 










382 


OOBC 


21 


00D4 


383 


OOBF 


18 


03 




384 


00C1 


21 


OODD 


385 


00C4 


1 1 


3024 


386 


00C7 


1 


0009 


387 


OOCA 


ED 


BO 




388 


OOCC 


OB 






389 


OOCD 


78 






390 


OOCE 


B1 






391 


OOCF 


20 


FB 




392 


00D1 


C3 


0000 


393 










394 


00D4 


52 


61 


6D 20 


395 


00D8 


45 


72 


72 6F 


396 


OODC 


72 






397 


OODD 


52 


6F 


6D 20 


398 


00E1 


45 


72 


72 6F 


399 


00E5 


72 






400 


0009 








401 










402 










403 










404 


00E6 


02 






405 


00E7 


FF1A 




406 


00E9 


F140 




407 










408 


OOEB 


06 






409 


OOEC 


FF12 




410 


OOEE 


FIFO 




41 1 


OOFO 


0000 




4 12 


00F2 


F 192 




413 










414 










415 










416 


00F4 


03 






417 


00F5 


FF30 




418 


00F7 


00 






419 


00F8 


00 






420 


00F9 


00 






421 










422 










423 


N 








4 24 


OOF A 


OH 






425 


OOFB 


FFAC 




426 


OOFD 


3000 




427 


OOFF 


2 







err 1 : 



e r r 2 : 
err : 



err3 : 



errml : 



errml 



intab: 



add 
. 1 d 

dec 

Id 

or 

jr 

or 

ret 

Id 

jr 

Id 

Id 

Id 

Idir 

dec 

Id 

or 

jr 

Jp 

db 



hi 

a, e 

e , a 

be 

a.b 

c 

nz.ccsl 

e 



hi , errml 

err 

hi , errin2 

de , crtmem+40- (errml /2) 

be , errml 



;set ram error message 



errm2 : db 



be 

a.b 

c 

nz , err3 

prs 

'Ram Error' 



'Rom Error' 



;pause a whi 1 e 



;try restart again 



equ ($-errm1)/2 

initialize the interrupt vector table 



def b 

defw 
defw 

defb 
def w 
defw 
defw 
def w 



sysvec+2 
- keysrv 



ctcvec+2 

mi 1 1 i 



t imer 



init keyboard fifo 

defb 3 

defw fifent 

defb 

defb 

defb 



;parallel keyboard interrupt vector 

;one millisecond interrupt timer 
-,one second timer interrupt vector 



fifo count 
fifo in 
fifo out 



initialize the crt display 



defb 8 

defw cursor 

defw cr tmem 

defb 02 



;base address is 3000h 

;use non-blinking box cursor 



> 

3 
3 

T> 

3 

a 

rn 



0100 


3000 


0102 


17 


0103 


00 


0104 


00 



0105 


OC 


0106 


FFBF 


0108 


F10C 


010A 


F10E 


010C 


Fl 15 


010E 


FF54 


01 10 , 


FFCB 


01 12 


FFCC 


0006 




01 14 


04 


01 15 


FF3C 


01 17 


F7FD 


01 19 


FC80 



01 IB 



FF 
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429 
430 
431 
432 
433 
434 
435 
436 
437 
430 
439 
440 
44 1 
442 
443 
444 
445 
446 
447 
440 
449 
450 
451 
452 
453 
454 
455 
456 
457 
450 
459 
460 
461 
462 
463 
464 
465 
466 
467 
■ 460 
469 
470 
471 
472 
473 
474 
475 
476 
477 
470 
479 
400 
401 
402 
403 
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01 1C 


01 


ID 


01 IE 


4F 




01 IF 


01 


1C 


0121 


00 




0122 


03 


ID 


0124 


CF 




0125 


3F 




0126 


07 




0127 


03 


IF 


0129 


4F 




012A 


1A 




012B 


03 





012C 


2 


012E 


03 


012F 


10 


0130 


2 


0132 


07 


133 


FA 



10 



def w 
defb 
defb 
defb 



cr tmem 

23 







{direct crt memory output address 
;initia) scroll base 
; ini t ial leadin 
; ini t ia 1 at tribute 



;conf igure table address 

;printer output ready mask 

{printer output ready value 

;Xon / Xoff enable/disable (NOP or RET) 

;step rate for wd!797 



defb 2*2 

defw avai 1 b 

defw iobl oc+ iobdvs 

defw ram-200h 

defb -1 ;end of variable init table 

I/O port initialization. 

initialize system pio for use as bank-switch, 
configuration select and parallel keyboard input 





Init ia 


ize configura 




defb 


2* numcon 




defw 


contbl 


c f i n i t ; 


defw 


s iomsk 




defw 


sioval 




defw 


xonenb 




defw 


steprt 




defw 


spare 1 




defw 


spare2 


numcon 


equ 


($-cf init)/2 



defb 
defb 

defb 
defb 

defb 
defb 
defb 
defb 

defb 
defb 
defb 
defb 



1 . sysct 1 
01001 1 1 lb 

1 , syspio 
10000000b 

3. sysct 1 
1 1001 1 1 lb 

00111111b 
000001 1 lb 

3,kbdct 1 
01001 1 1 lb 

sysvec+2 
1000001 lb 



jselect input mode 



{enable ROM 



;put system pio in bit mode 

;make bits 5, 4, 3, 2, 1, and be inputs 

;disable interrupts 



;put keyboard port in input mode 
;load keyboard interrupt vector 
;enable interrupts 



Initialize Counter Timer Circuit. 



defb 


2,ctc0 


defb 


0000001 lb 


defb 


low ctcvec 


defb 


2,ctcl 


defb 


000001 1 lb 


defb 


250 



; reset t iiner 

;base interrupt vector for etc 



;start timer, but no interrupts 
;ctcl period = 1 msec 



m 

ISJ 



> 

T3 

CD 

rj 
a. 

x" 
rn 



0134 


2 


1A 


0136 


27 




0137 


7D 




013ti 


2 


IB 


013A 


C7 




01313 


7D 





013C 


0A 


013E 


01 


013F 


00 


0140 


2 


0141 


00 


0142 


03 


0143 


41 


0144 


04 


1413 


47 


0146 


05 


0147 


AA 


0148 


01 


014A 


07 



07 



OC 



014B 


08 


06 


014P 


01 




014E 


00 




014F 


03 




0150 


41 




0151 


04 




0152 


47 




0153 


05 




0154 


AA 




0155 


1 


00. 


0157 


05 




0158 


01 


68 


015A 


00 





015B 


03 


0150 


CF 


015E 


00 


015F 


07 


0160 


03 


0162 


CF 


0)63 


FO 


0164 


07 



09 



OB 
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484 
485 
486 
487 
488 
489 
490 
491 

. 492 
493 
494 
495 
496 
497 

" 498 
499 
500 
501 
502 
503 
504 
505 
506 
507 
508 
509 
510 
51 1 
512 
513 
514 
515 
516 
517 
518 
519 
520 
521 
522 
523 
524 
525 
526 
527 
528 
529 
530 
531 
532 
533 
534 
535 
536 
537 
538 
539 
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defb 
defb 
defb 

defb 
defb 
defb 



2,ctc2 
001001 1 lb 
125 

2,ctc3 

1 10001 1 lb 

125 



;put ctc2 in timer / 256 mode (64 ' usec/count ) 
;ctc2 period = 8 msec 



;put ctc3 in counter mode with interrupt 
;ctc3 period = 125*8 msec = 1 second 



initialize sio channel b for asynchronous serial 
interface to printer or terminal 



defb 


10 , s iocpb 


defb 


1 


defb 


00000000b 


defb 


2 


defb 


low si ovec 


defb 


3 


defb 


01000001b 


defb 


4 


defb 


010001 1 lb 


defb 


5 


defb 


10101010b 


defb 


1 , baudb 


defb 


0111b 


initial 


ize communi 


defb 


8 , s iocpa 


defb 


1 


defb 


00000000b 


defb 


3 


defb 


01000001b 


defb 


4 


defb 


010001 1 lb 


defb 


5 


defb 


10101010b 


defb 


1 , bauda 


defb 


0101b 


defb 


1 , async 


defb 





i n i t i a 1 


ize PIO for 


defb 


3 ,gpioca 


defb 


1 1001 1 1 lb 


defb 


00000000b 


defb 


000001 1 lb 


defb 


3 , gpiocb 


defb 


1 1001 1 1 lb 


defb 


1 1 1 10000b 


defb 


000001 1 lb 



select register #1 

disable interrupts 

select register #2 

base sio interrupt vector 

select register #3 

7 bits/rx characters 

select register #4 

16x clock, 1 stop bit, even parity enabled 

select register #5 

DTR, 7 bits/tx character, Tx enb, RTS 



;default clock is 1200 bps 



ize communications port for async modem interface 



select register tt\ 

disable interrupts 

select register #3 

7 bits/rx characters 

select register #4 

16x clock, 1 stop bit, even parity enabled 

select register #5 

DTR, 7 bits/tx character, Tx enb, RTS 



;default clock is 300 bps 
;set internal Rx + Tx clocks 



;mode 3 

; al 1 output 

;no interrupts 



;mode 3 

;upper nibble in, lower out 

;no interrupts 



> Balcones Operating System for the XEROX 820-11 MACRO-BO 3.44 09-Dec-01 
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n> 

p-} . 54 1 0165 1 OA , defta l.gpiodb 

Zr. 542 0167 05 defb (1 shl p.strb) or (1 shl p. auto) 

m 544 016B FF defb -1 ; end of i/o init table 

subttl Resident Monitor Entry Points 
page 



540 






54 1 


01 65 


1 OA 


542 


0167 


05 


543 






544 


016B 


FF 


545 






546 






547 







m 



rn 
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> 

a. 
m 



548 
549 
550 
551 
552 
553 
554 
555 
556 
557 
558 
559 
560 
561 
562 
563 
564 
565 
566 
567 
568 
569 
570 
571 
572 
573 
574 
575 
576 
577 
578 
579 
580 
581 
582 
583 
584 
585 
586 
587 
588 
589 
590 
591 
59 2 
593 
594 
595 
596 
597 
598 
599 
600 
601 
602 
603 



0266! 






F000 


C3- 


F07C 


F003 


C3 


FA62 


F006 


C3 


FOCD 


F009 


C3 


F0D8 


F00C 


C3 


F2F1 


FOOF 


C3 


F2FE 


F012 


C3 


F0E5 


F015 


C3 


FOFO 


F018 


C3 


F0F8 


F01B 


C3 


FA17 


F01E 


C3 


FA3C 


F021 


C3 


FA3E 


F024 


C3 


FA48 


F027 


C3 


FA44 


F02A . 


C3 


F344 


F02D 


C3 


F2B4 


F030 


C3 


F288 


F033 


C3 


F2A3 


F036 


C3 


F097 


F039 


C3 


FOB 6 


F03C 


C3 


F08B 


F03F 


C3 


F105 


F042 


C3 


F0A4 


F045 


C3 


FOBF 


F048 


C3 


F13F 


F04B 


C3 


F7A3 


F04E 


C3 


F7AF 


F051 


C3 


F796 


F054 


C3 


F7BB 


F057 


C3 


F7CC 


F05A 


C3 


F770 


F05D 


C3 


F775 


F060 


C3 


F77F 


F063 


C3 


F788 


F066 


C3 


F13F 


F069 


C3 


F0D2 


F06C 







.scsident monitor entry points. 

Tiiis Entry Point Vector provides the only reliable access 
to services provided by the Resident Monitor. Any access 
to coae in the Monitor cr its Ram page past the keyboard 
variables is not allowed. Future releases of the Resicent 
Monitor will always prcvice compatabi 1 i ty with these entry 
vectors . 

This restriction also appl'ies to the Resident Monitor Ram 
Page at the top of memory. Access to Ram Variables must 
be obtained through the appropriate entry vector. 





aoove 






cS-seg 




CClC: 


JP 


restart 


warm: 


JP 


prompt 


const : 


JP 


kbdst 


ccain: 


JP 


kbdin 


ccnout : 


jp 


crtout 






f astcrt 




jp 


s i os t 




JP 


s i o i n 




JP 


s i oout 




JP 


sel ect 




JP 


home 




jp 


seek 




jp 


read 




Jp 


write 




jp 


xqdvr 




jp 


setcur 




jp 


outcur 




Jp 


crt 1 di r 




jp 


getse 1 


day t i : 


jp 


dayt im 




jp 


conf ig 




jp 


siordy 




jp 


setcon 




jp 


ssp 


usrsec : 


;ip 


nu 1 int 




jp 


iocons 




jp 


ioconi 




jp 


i ocono 




jp 


i o 1 i s t 




jp 


io 1 s ts 




jp 


comins 




jp 


cominp 




jp 


comout 




jp 


comots 


idle: 


jp 


nu 1 int 


sof tv ; 


jp 


soft 




def s 


16,-1 




=ubtt 1 


Moni tor 




page 





monitor resta 
monitor entry 
conso 1 e statu 
console input 
console outpu 
fast crt outp 
sio channel b 
sio channel b 
sio channel b 
select drive 
home r/w head 
seek to track 
read sector 
write sector 
execute physi 
set direct cr 
direct crt di 
crt memory bl 
return addres 
return addres 
return config 
sio channel b 
set configura 
start screen 
user aCcessib 
conso 1 e statu 
console input 
console outpu 
printer outpu 
printer statu 
communi cat i on 
communi cat ion 
communi cat i on 
communicat ion 
idle whi 1 e i / 
record soft e 
space for opt 



rt 

po int 
s to A 

to A 
t from A 
ut from C • 

status to A 

input to A 

output from A 
in C 

in C 
C -> buffer <§• HL 
C <- buffer @ HL 
cal driver request @ HL 
t cursor from HL 
spl ay 

ock move ala* LDIR 
s of disk mapping table to HL 
s of Time-of-Day 
uration status 

output ready status 
t i on 
print 

le 1 second* interrupt 
s through iobyte 
through iobyte 
t through iobyte 
t through iobyte 
s through iobyte 
s input ready status 
s input data to A 
s output data from C 
is output ready »status 
o is pending 
rror 
ion rom 1 inkage 
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13 

2 604 



3 
CL 



605 ;; Monitor Restart 

606 



x 607 F07C F3 restart :di • ;lock system 

m 608 



F07C 


F3 




F07D 


DB 


1C 


F07F 


F6 


80 


F08 1 


03 


1C 


F083 


C3 


0000 



F09A 


24 


F09B 


25 


F09C 


28 03 


F09E 


73 


F09F 


23 


FOAO 


72 


F0A1 


EB 


F0A2 


FB 


F0A3 


C9 



F0A4 


7E 




F0A5 


CB 


BF 


F0A7 


FE 


06 


FOAO 


DO 




FOAA 


5F 




FOAB 


7E 




FOAC 


23 




FOAD 


46 




FOAE 


16 


00 


FODO 


2 1 


FFBF 


F0B3 


19 




F0B4 


19 




F0B5 


5E 





est art :di 




in 


a , (syspio) 


or 


1 shl 7 


out 


(syspio) , a 


JP 


prs 



609 F07F F6 80 or 1 shl 7 -.enable banked rom 

610 

611 F083 C3 0000 jp prs ; reload monitor from rom or ram 

612 : 

613 ;; Daytim - Return Address of Time-of-Day. 

614 ; 

615 F086 11 FF56 daytim: Id de.day ;point to day of month 

616 F009 18 OF jr retval 
617 

618 x ;; Config - Return Configuration Status Byte. 

619 . ' ; 

620 F08B 3A F0E3 config: Id a, (mask) jturn keyboard mask into c.keym 

621 F08E E6 80 and 080h 

622 F090 F6 00 or 

623 F091 confg equ $-1 ;*****=>; Thi s word stored by Preset 

624 F092 5F Id e,a 

625 F093 16 01 Id d,rev-4Q0 jreturn revision level 

626 F095 18 03 jr retval 
627 

628 ;; getsel - Get address of Select table. 

629 ; 

630 F097 11 F360 getsel: Id de.Seltab ;set select table address 
631 

632 ; ; Retval - Return Value to Caller. 

633 ; 

634 F09A 24 retval: inc h ;see if high level language call 
635 

636 F09C 28 03 jr z.retvl ;if assembly level call 

637 F09E 73 Id (hl),e * jstore answer in variable 
638 
639 

640' F0A1 EB retvl: ex de.hl .; leave result in HL as well 

641 
642 
643 
644 
645 

646 F0A4 7E setcon: Id a, (hi) ;get configuration table Index 

647 
648 

649 FOAO DO ret nc ;if index out of range 

650 

651 FOAB 7E Id a,(hl) ;get read/write flag 

65 2 

653 FOAD 46 Id b,(hl) ;get configuration data 

654 

655 FOBO 21 FFBF Id hl.contbl ;set address of configuration table addresses 

656 
657 
658 F0B5 5E Id e,(hl) ;get configurable byte address 



retval : 


inc 


h 




dec 


h 




jr 


z , retv 1 




Id 


(hl).e 




inc 


hi 




Id 


(hi) ,d 


retv 1 : 


ex 


de.hl 


ei ret : 


ei 
ret 




; ; 


setcon 


- set conf 


setcon : 


Id 


a . ( h 1 ) 




res 


7. a 




cp 


numcon 




ret 


nc 




Id 


e ,a 




Id 


a. (hi) 




inc 


hi 




Id 


b,(hl) 




'Id 


d,0 




Id 


hi , contbl 




add 


hi .de 




add 


hi ,de 




Id 


e,(hl) 



en 



rn 
on 
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659 
660 
661 
662 
663 
664 
665 
666 
667 
668 
669 
670 
671 
672 
673 
674 
675 
676 
677 
678 
679 



F0B6 



23 



F0B7 


56 




F0B8 


EB 




F0B9 


CB 


7F 


FOBB 


7E 




FOBC 


CB 




FOBD 


70 




FOBE 


C9 





FOBF 


3E 


67 


FOCI 


32 


F20E 


F0C4 


AF 




F0C5 


3 2 


F224 


F0C8 


3E 


B1 


FOCA 


03 


19 


FOCC 


C9 





ssp: 



inc 

Id 

ex 

bit 

Id 

ret 

Id 

ret 

ssp 

Id 

Id 

xor 

Id 

Id 

out 

ret 



hi 

d , ( h 1 ) 
de.hl 
7, a 
a, (hi ) 

2 

(hi ),b 



; set di rect ion 

;get previous value 

•if asking current configuration 

jstore new configuration 



jstart with cr/lf 



start screen print. 

a,3+((24+1) shl 2) 

( spact ) , a 

a 

(spent ) , a 

a,81h ;start millisecond timer 

(ctel ) ,a 



subttl Console / Printer Drivers 
page 



> 
U 

a> 

D 
Q- 
X* 

rn 



> 

<D 
3 

a. 
x' 
m 
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m 



600 
68 1 
682 
683 
684 
685 
686 
687 
688 
689 
690 
691 
692 
693 
694 
695 
696 
697 
698 
699 
700 
701 
702 
703 
704 
705 
706 
707 
708 
709 
710 
71 1 
712 
713 
714 
715 
716 
717 
718 
719 
720 
721 
722 
723 
724 
725 
726 
727 
728 
729 
730 
731 
732 
733 
734 



OOCD" 



FOCD 


3 A 


FODO 


B7 


F0D1 


C8 



F0D2 
F0D4 



F6 
C9 



FF30 



FF 



F0D5 


CD 


F066 


F0D8 


CD 


FOCD 


FODB 


28 


F8 


FOOD 


E5 




FODE 


CD 


F130 


F0E1 


El 




F0E2 


E6 


7F 


F0E3 






F0E4 


C9 





F0E5 


DB 


07 


F0E7 


E6 


01 


F0E9 


C8 




FOEA 


3E 


FF 


FOEC 


C9 





FOED 


CD 


F066 


FOFO 


CD 


F0E5 


F0F3 


28 


F8 


F0F5 


DB 


05 


F0F7 


C9 





FOFO 


F5 




F0F9 


CD 


F105 


FOFC 


CC 


F066 


FOFF 


28 


F8 


F 10 1 


F 1 
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; run this code upstairs 



kbdst 



keyboard status. 



Returns A 
A 



if no char 
-1 if char available 



kbdst : 



soft : 



Id a.(fifcnt) 

or a 
ret z 

soft - record soft error. 



or 
ret 



-1 



;get input fifo bytecount 
; if keyboard queue is empty 

;set ready / error status 



kbdin - Keyboard Input 
Returns A = character 



kbdin 1 : 


cal 1 


kbdin: 


cal 1 




jr 




push 




cal 1 




pop 


kbmask : 


and 


mask 


equ 




ret 



; idle cpu 

;1oop until keyboard input ready 

;get keyboard entry 



s i ost 



s iost : 



idle 

kbdst 

z.kbdinl 

hi 

remove 

hi 

07fh 

$_! ,*****=>; this byte modified by ESC 0/1 



sio channel b input ready status. 

;get sio status register 
;if no data available 



in 


a , ( s iocpb 


and 


00000001b 


ret 


z 


Id 


a,-1 


ret 





sioin - Sio channel b input character. 



s i o i n 1 ; 
sioin: 



cal 1 
cal 1 
jr 
in 
ret 



idle ; idl e cpu 

siost ;test console status 

z.sioinl ;loop until data is 

a.(siodpb) ; ready at sio data port 



sioout - Sio channel B output character. 



sioout : 
s i o x 1 : 



push 
cal 1 
cal 1 
jr 
pop 



af 

s i ordy 

z , idl e 

z , s i ox 1 

af 



;idle cpu if transmitter not ready 



m 

—a 
00 
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735 
736 
737 
738 
739 
740 
741 
742 
743 
744 
745 
746 
747 
740 
749 
750 
751 
752 
753 
754 
755 
756 
757 
758 
759 
760 
761 
762 
763 
764 
765 
766 
767 
768 
769 
770 
771 
772 
773 
774 
775 
776 
777 
778 
779 
700 
78 1 



F102 
F104 



D3 05 
C9 



F105 


3E 


10 


F107 


D3 


07 


F109 


DB 


07 


F10B 


E6 


04 


F10C 






F10D 


EE 


04 


F10E 






F10F 


20 


02 


F1 1 1 


AF 




Fl 12 


C9 




F1 13 


F6 


FF 


Fl 15 


00 




Fl 16 


CD 


F0E5 


Fl 19 


28 


1 1 


Fl IB 


CD 


FOFO 


Fl IE 


E6 


7F 


F12Q 


D6 


13 


F122 


28 


05 


F124 


D6 


FE 


F126 


20 


04 


F128 


2F 




F129 


3 2 


F12D 


F12C 


3E 


FF 


F12D 






F12E 


B7 




F12F 


C9 





F130 


2 1 


ff: 


F133 


35 




F134 


21 


FF: 


F137 


34 




F138 


CB 


A6 


F13A 


3E 


20 


F13C 


86 




F13D 


6F 




F13E 


7E 




F13F 


C9 





s i ordy : 

s i omsk 

sioval 



s i ord 1 : 
xonenb: 



siord2: 
s i ord3 : 
xof f 1 g 



remove : 



i ndex : 



nul int : 



out 
ret 



( s i odpb) , a 



;output data to sio 



siordy - Sio channel B output ready ststus. 

;reset status latch 



Id 

out 

in 

and 

equ 

xor 

equ 

jr 

xor 

ret 

or 

nop 

cal 1 

jr 

cal 1 

and 

sub 

jr 

sub 

jr 

cpl 

Id 

Id 

equ 

or 

ret 

Remove 

Id 

dec 

Id 

inc 

res 

Id 

add 

Id 

Id 

ret 

subtt 1 
page 



a, lOh 

(s i ocpb) , a 

a , ( s iocpb) 

00000100b ;test tbe status bit 

$-1 .*****=> jmodif ied at run time 

00000100b 

$-1 ;*****=> ;m odif ied at run time 

z,siord1 ;if hardware is ready 

a 



-1 



;if input not available 



;if printer said Stop 



;set ready status 
;*****=>;put RET here to disable Xon/Xoff 
siost 
z , si ord3 
s ioin 
7fh 
Xoff 

z.si ord2 
Xon-Xof f 
nz,siord3 ;if not Resume 

;set printer ready 
(xofflg).a 
a,-1 

$-1 ; *****=> ;se t as pending flag 
a 



remove key from fifo. 

{decrement fifo count 



hi ,f if cnt 

(hi) 

hi , f ifout 

(hi) 

4. (hi) 

a, low fifo 

a, (hi) 

I .a 

a. (hi ) 



;point hi to fifo output offset 
jadvance f i f 'o pointer 
{modulo 16 

{index into fifo by offset 

-.fetch character in fifo 



Interrupt Service Routines 



> 
TJ 

Q. 
X* 

rri 



> 

a> 
m 



m 
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782 
783 
7B4 
7B5 
7B6 
7B7 
788 
789 
790 
791 
792 
793 
794 
795 
796 
797 
798 
799 
800 
801 
802 
803 
804 
805 
806 
807 
808 
809 
810 
81 1 
812 
813 
814 
815 
B16 
817 
B1B 
B19 
8 20 
821 
822 
823 
824 
825 
826 
827 
828 
829 
830 
831 
832 
833 
834 
835 
836 
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interrupt service routines. 



service 



F140 






F140 


ED 


73 F1EC 


F144 


31 


FF50 


F147 


E5 




F148 


F5 




F149 


C5 




F14A 


DB 


IE 


F14C 


2F 




F14D 


FE 


9E 


F14F 


20 


16 


F151 


3A 


F20E 


F154 


B7 




F155 


28 


OB 


F157 


3E 


07 


F159 


3 2 


F20E 


F15C 


AF 




F15D 


32 


F224 


F160 


18 


2D 


F162 


CD 


FOBF 


F165 


18 


28 


F167 


21 


FF30 


F16A 


FE 


9B 


F16C 


2B 


1 1 


F16E 


4F 




F16F 


7E 




F170 


3C 




F17 1 


FE 


10 


F173 


30 


1A 


F175 


77 




F176 


2 1 


FF31 f 


F179 


CD 


F137 


F17C 


71 




F17D 


18 


10 


F17F 


CD 


FIEF 


F182 


06 


03 


F184 


36 


00 


F186 


2C 




F187 


10 


FB 


F189 


CD 


F293 


F18C 


CD 


F003 


F18F 


CI 




F190 


18 


57 



macro 

Id 

Id 

push 

push 

endm 



( savstk ) , sp 
sp , int stk 
hi 
af 



;save user stack pointer and 
{switch to local stack 
;save machine state 



keysrv - parallel keyboard interrupt service. 

;save state 



keysrv : 


servi ce 






Id 


( savstk) , sp 




Id 


sp , intstk 




push 


hi 




push 


af 




push 


be 




in 


a, (kbddat) 




cpl 






cp 


Scrprt 




jr 


nz , key2 




Id 


a , (spact ) 




or 


a 




jr 


z , key 1 




Id 


a,3+(1 shl 2) 




Id 


(spact ) , a 




xor 


a 




Id 


(spent ) , a 




j'~ 


key5 


key 1 : 


cal 1 


s'sp 




jr 


key5 


key 2: 


Id 


hi , f if cnt 




cp 


Abort 




jr 


z,key3 




Id 


c , a 




Id 


a, (hi) 




inc 


a 




cp 


16 




jr 


nc,key5 




Id 


(hi ) t a 




Id 


hi ,f if in 




cal 1 


index 




Id 


(M),c 




jr 


key5 


k e y 3 : 


cal 1 


let ins 




Id 


b,3 


key4 : 


Id 
inc 


(hi) ,0 
1 




d jnz 


key4 




cal 1 


crtof f 




cal 1 


warm 


key5 : 


pop 


be 




jr 


rf i 



; read keyboard input port 

;if not screen print key 

;if screen not printing now 
;set state to cr/lf/stop 
;set screen print state 

;restart character counter 

;start screen print 

; bump input fifo character count 
;check user Abort Key 
; warm start system 



;exit now if fifo is full 

;point hi to fifo input offset 

{store character in fifo @ hi 

;release Pio interrupt controller 

{.clear fifo count 

;and fifo in/out pointers 

; turn crt memory off 
;and warm start system 

;return from interrupt 



rn 
O 



> 

"O 

(D 

a. 
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Interrupt Service Routines 

837 

838 

839 

840 F192 ED 73 F 1 EC 

841 

842 

843 

B44 

845 

846 

847 

848 

849 

850 

851 

852 

853 

854 

855 

856 

857 

858 

859 

860 

861 

862 

863 

864 

B65 

866 

867 

868 

869 

870 

871 

872 

873 

874 

875 

876 

877 

878 

879 

880 

881 

882 

883 

884 

885 

886 

887 

888 

889 

890 

891 

892 
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r 8 1 



F192 






F192 


ED 


73 F 


F196 


31 


FF50 


F199 


E5 




F19A 


F5 




F19B 


2A 


FF52 


F19E 


23 




F19F 


22 


FF52 


F1A2 


CD 


F048 


F1A5 


21 


FF55 


F1A8 


35 




F1A9 


20 


06 


F1AB 


DB 


1C 


F1AD 


E6 


F8 


F1AF 


D3 


1C 


F1B1 


C5 




F1B2 


06 


02 


F1B4 


3E 


3B 


F1B6 


2 1 


FF5B 


F1B9 


34 




F1BA 


BE 




F1BB 


30 


2B 


F1BD 


36 


00 


F1BF 


2B 




F1C0 


10 


F7 


F1C2 


3E 


17 


F1C4 


34 




F1C5 


BE 




F1C6 


30 


20 


F1C8 


36 


00 


F1CA 


D5 




F1CB 


2B 




F1CC 


2B 




F1CD 


4E 




F1CE 


2B 




F1CF 


1 1 


FIFO 


F1D2 


EB 




F1D3 


09 




F1D4 


7E 




F1D5 


EB 




F1D6 


D1 




F1D7 


34 




F1D8 


BE 




F1D9 


30 


OD 


F 1 DB 


36 


01 


FIDO 


23 




FIDE 


34 




F1DF 


3E 


OB 


F1E1 


BE 




F1E2 


30 


04 


F1E4 


36 


01 


F1E6 


23 




F1E7 


34 




F1E8 


CI 





timer: 



timer - Once per second interrupt, 
servi ce 





Id 


(savstk) , sp 




Id 


sp, intstk 




push 


hi 




push 


af 




Id 


hi , (t ikcnt ) 




inc 


hi 




Id 


(tikcnt ) ,hl 




cal 1 


usrsec 




Id 


hi , t imout 




dec 


(hi) 




jr 


nz , timer 1 




in 


a, (syspio) 




and 


1111 1000b 




out 


(syspio) ,a 


t imer 1 : 


push 


be 




Id 


b,2 




Id 


a, 59 




Id 


hi , sees 


t imer 2 : 


i nc 


(hi) 




cp 


(hi) 




jr 


nc , t imer3 




Id 


(h1),0 




dec 


hi 




djnz 


t i «ie r 2 




Id 


a, 23 




inc 


(hi) 




cp 


(hi) 




jr 


nc , t imer3 




Id 


(hl),0 




push 


de 




dec 


hi 




dec 


hi 




Id 


c,(h!) 


> 


dec 


hi 




Id 


de ,dpm- 1 




ex 


de.hl 




add 


hi.be 




Id 


a,(hl) 




ex 


de". hi- 




pop 


de 




inc 


(hi) 




cp 


(hi) 




jr 


nc , t imer3 




Id 


(hl),l 




inc 


hi 




inc 


(hi) 




Id 


a, 1 1 




cp 


(hi) 




jr 


nc , t imer 3 




Id 


(h1).1 




inc 


hi 




inc - 


(hi) 


t imer3: 


pop 


be 



jadvance binary seconds counter 



•.invoke user's interrupt routine 
-.decrement disk turn-off timer 

jexit if not timed out yet 

{disable all drive selects which 
jturns off spindle motors 



{point at wal 1 c 1 ock 
{increment seconds 

;if not one minute or hour 



; increment hours 
; i f not one day 



;get month 

{point to day 

;point to day/month table 



;get number of days 

; increment day 

{if not end of month 
;reset day in month 

{ increment month 



;if not new years eve 
jwrap december to January 

{signal Guy Lombardo 



> 

"D 

■o 

3 

ex 

X* 

m 
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NJ 



B93 








894 








895 








896 


F1E9 


Fl 




897 


F1EA 


El 




898 


F1EB 


31 


0000 


899 


F1EC 






900 


F1EE 


FB 




901 


FIEF 


ED 


4D 


902 








903 








904 








905 


F1F1 


IF 




906 


F1F2 


1C 




907 


F1F3 


IF 




908 


F1F4 


IE 




909 


F1F5 


IF 




910 


F1F6 


IE 




91 1 


F1F7 


IF 




912 


F1F8 


IF 




913 


F1F9 


IE 




914 


FIFA 


IF 




915 


F1IB 


IE 




916 


F1FC 


IF 




917 








918 








919 








920 


FIFO 






921 


FIFO 


ED 


73 F1EC 


922 


F201 


31 


FF50 


923 


F204 


E5 




924 


F205 


F5 




925 


F206 


2A 


FF50 


926 


F209 


23 




927 


F20A 


22 


FF50 


928 


F20D 


3E 


00 


929 


F20E 






930 


F20F 


67 




931 


F210 


E6 


03 


932 


F212 


28 


6D 


933 


F214 


6F 




934 


F215 


CD 


F105 


935 


F218 


28 


67 


936 


F21A 


2D 




937 


F21B 


20 


48 


938 


F21D 


DB 


1C 


939 


F21F 


F5 




940 


F220 


CD 


F29C 


941 


F2 23 


3E 


00 


942 


F224 






943 


F225 


3D 




944 


F226 


FA 


F236 


945 


F229 


32 


F224 


946 


F22C 


21 


0000 


947 


F22D 




t 


948 


F22F 


7E 





dpm: 



mi 1 1 i : 



spact 



spent 



spaddr 



rfi - return From Interrupt. 



rf i : 


pop 


af 




pop 


hi 




Id 


sp.O 


savstk 


equ 
ei 


$-2 


ret ins : 


ret i 





-.restore stack 
*****=>. this word modified at runtime 

;re~enable interrupts and return 



Table of days per month. 



db 


31 


db 


28 


db 


31 


db 


30 


db 


31 


db 


30 


db 


31 


db 


31 


db 


30 


db 


31 


db 


30 


db 


31 



January 

f ebuary 

march 

apri 1 

may 

June 

July 

august 

September 

October 

november 

december 



mi 1 1 i - Millisecond timer interrupt service. 

service 

1 d (savstk ) . sp 

Id sp, intstk 

push hi 

push af 

Id hi , (Mi Isec) 

inc hi 

Id (Mitsec).hl 

id a.O 

equ $- 1 

Id h , a 

and 3 

jr z ,mi 1 1 6 

Id 1 ,a 

cal 1 siordy 

j r z , m i 11 6 

dec 1 

jr nz ,mi 1 1 2 

in a.(syspio) 

push af 

ca 1 1 crton 

Id a.O 

equ $-1 

dec a 

j p m . m i 1 

1 d (spent ) , a 

id hl.Q ;set next character address 

equ $-2 ;*****=>; word modified at runtime 

Id a. (hi) 



•.increment millisecond counter 



;set screen print flag 
.*****->. this byte modified at runtime 



;if not printing screen 

;get printer status 
;if printer not ready 

;if not character print state 
;get pio state 



;get character count 
;*****=> ;byte modified at runtime 

; i f end of 1 ine 






> 
"O 

Q. 
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949 
950 
951 
952 
953 
954 
955 
956 
957 
958 
959 
960 
961 
962 
963 
964 
965 
966 
967 
968 
969 
970 
971 
972 
973 
974 
975 
976 
977 
978 
979 
980 
981 
982 
983 
984 
985 
986 
987 
988 
989 
990 
99 1 
992 
993 
994 
995 
996 
997 
998 
999 
1000 
100 1 



MACRO-80 3.44 



09- 



-81 



F230 


D3 


05 


F232 


2C 




F233 


AF 




F234 


18 


22 


F236 


3E 


61 


F238 


94 




F239 


IF 




F23A 


CB 


2F 


F23C 


CD 


F31E 


F23F 


E5 




F240 


C5 




F241 


06 


50 


F243 


7D 




F244 


80 




F245 


6F 




F246 


2D 




F247 


7E 




F240 


E6 


7F 


F24A 


FE 


20 


F24C 


20 


02 


F24E 


10 


F6 


F250 


78 




F251 


32 


F224 


F254 


CI 




F255 


El 




F256 


3E 


03 


F25B 


22 


F22D 


F25B 


2 1 


F20E 


F25E 


B6 




F25F 


77 




F260 


F1 




F261 


D3 


1C 


F263 


18 


1C 


F265 


2D 




F266 


21 


F20E 


F269 


20 


1 1 


F26B 


7E 




F26C 


D6 


04 


F26E 


77 




F26F 


FE 


FE 


F271 


20 


05 


F273 


3E 


01 


F275 


D3 


19 


F277 


77 




F278 


3E 


OA 


F27A 


18 


02 


F27C 


3E 


OD 


F27E 


03 


05 


F280 


35 




F281 


C3 


F1E9 





out 


(siodpb) , a 




inc 


1 




xor 


a 




jr 


mi 1 1 1 


mi 1 : 


Id 


a, 1 + (24 shl 




sub 


h 




rra 






sra 


a 




cal 1 


cca 




push 


hi 




push 


be 




Id 


b,80 




Id 


a, 1 




add 


a,b 




Id 


1 .a 


mi 101 : 


dec 


1 




Id 


a, (hi ) 




and 


7fh 




cp 


' ' 




jr 


nz.mi 102 




d jnz 


mi 101 


mi 102: 


Id 


' a,b 




Id 


(spent ) , a 




pop 


be 




pop 


hi 




Id 


a, 3 


mi 1 1 1 : 


Id 


(spaddr) ,hl 




Id 


h 1 , spac t 




or 


(hi) 




Id 


(hi). a 




pop 


af 




out 


( syspi o ) , a 




jr 


mi 1 16 


mi 112: 


dec 


1 




Id 


hi , spact 




jr 


n z , m i 1 14 




Id 


a, (hi.) 




sub 


1 shl 2 




Id 


(hi), a 




cp 


2-(l shl 2) 




jr 


nz ,mi 1 I 3 




Id 


a, 1 




out 


(ctcl).a 




Id 


(hi). a 


mi 113: 


Id 


a, If 




jr 


mi 115 


mi 1 14: 


Id 


a.cr ' 


mi 1 15: 


out 


(siodpb) .a 




dec 


(hi) 


mi 1 1£: 


JP 


rf i 




subtt 1 


Crt Dri ver . 




page 





; f i re hammer 
.•advance screen cursor 
;do not advance state 
; i f not end of 1 ine 
a.1+(24 shl 2) ;set address of next print line 



•.compute cursor address 
;save next line address 



-.delete trailing blanks 

-.get next character 

;if not trailing blank 

;set number of characters to print 



;set CR next state 
;set next display address 
;set state variable 
jadvance state 



;get pio back 



;check next state 
sset state address 
5 i f not 1 f state 

;advance line counter 



jdisable etc interrupt 

; set 1 ine feed 

;set carriage return 
;move paper or carriage 

jreturn from interrupt 



> 

"O 

a> 

x' 
m 



F284 
F2H7 



22 FFAF 
C9 



F2B8 


CD 


F29C 


F28B 


2A 


FFAF 


F20E 


71 




F28F 


23 




F290 


22 


FFAF 



F293 


F3 




F294 


DB 


1C 


F296 


CB 


BF 


F298 


FB 




F299 


D3 


1C 


F29B 


C9 





m 
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1002 
1003 
1004 
1005 
1006 
1007 
1008 
1009 
1010 
101 1 
1012 
1013 
1014 
1015 
1016 
1017 
1018 
1019 
1020 
1021 
1022 
1023 
1024 
1025 
1026 
1027 
1028 
1029 
1030 
1031 
1032 
1033 
1034 
1035 
1036 
1037 
1038 
1039 
1040 
1041 
1042 
1043 
1044 
1045 
1046 
1047 
1048 
1049 
1050 
105 1 
1052 
1053 
1054 
1055 
1056 
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F29C 


F3 




F29D 


DB 


1C 


F29F 


CB 


FF 


F2A1 


18 


F6 



;; setcur - set direct display cursor position. 

setcur: Id (dircur).hl ;set up cursor address 
ret 

;; outcur - store character directly to crt memory. 



;turn on crt bank 
-.fetch direct cursor 
;store character 



outcur : 


cal 1 


crton 




Id 


hi , (di rcur ) 




Id 


(hi ) ,c 




inc 


hi 




Id 


(di rcur) ,hl 


; ; 


crtof f 


- turn crt r 


crtof f : 


di 






in 


a , ( syspi o) 


crtof 1 : 


res 
e i 


7,a 


crt on 1 : 


out 
ret 


( syspi o ) , a 



crton: 



; lock pio access 

jreset crt bank enable 
;unlock pio access 



crton - turn crt ram on. 



di 
in 
set 



a f (syspi o) 
7. a 
crton 1 



;lock time-out interrupt 
;get pio status 
;enable bank 



block move from/ to crt memory. 

Entry: HL = Source- address 

DE = Destination address 

BC = Number of bytes to move 

A = - Move crt ram' to crt ram 

A < - Move sys ram to crt ram 

A > - Move crt ram to sys ram 



F2A3 


ED 


73 F31B 


F2A7 


31 


FFEO 


F2AA 


A7 




F2AB 


CD 


F29C 


F2AE 


28 


37 


F2B0 


F2 


F2B5 


F2B3 


EE 


80 


F2B5 


03 


1C 


F2B7 


E5 




F2BB 


21 


FFBO 


F2BB 


ED 


4A 


F2BD 


E3 




F2BE 


FA 


F2C4 


F2C1 


01 


0050 


F2C4 


C5 




F2C5 


D5 





crt 1 d i r 


: Id 


(usrstk) , sp 




Id 


sp, cr tstk 




and 


a 




cal 1 


crton 




jr 


z.crt mv 




JP 


p, 1dir2 


ldirl : 


xor 


BOh 


ldir2: 


out 


(syspio) /a 




push 


hi 




Id 


hi, -80 




adc 


hi; be 




ex 


(sp) /hi 




JP 


m, ldir3 




Id 


be, 80 


ldir3: 


push 


be 




push 


de 



;do not use callers stack 
-.since it may disappear 
;set entry conditions 

; block move within crt ram 

;if move from crt ram to system ram 

jenable source bank 
;save move source address 
;count down one transfer buffer 

;save overflow, retrieve source address 

;if less than one buffer 

{transfer one buffer 

;save byte count 

;save destination address 



m 
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1057 
1058 
1059 
1060 
1061 
1062 
1063 
1064 
1065 
1066 
1067 
1068 
1069 
1070 
1071 
1072 
107 3 
1074 
1075 
1076 
1077 
1078 
1079 
1080 
1081 
1082 
1083 



F2C6 


1 1 


FF5C 


F2C9 


ED 


BO 


F2CB 


01 




F2CC 


CI 




F2CD 


DB 


1C 


F2CF 


EE 


80 


F2D1 


D3 


1C 


F2D3 


E5 




F2D4 


21 


FF5C 


F2D7 


ED 


BO 


F2D9 


El 




F2DA 


CI 




F2DB 


78 




F2DC 


A7 




F2PD 


FA 


F2E9 


F2E0 


B1 




F2E1 


28 


06 


F2E3 


DB 


1C 


F2E5 


18 


CC 


F2E7 


ED 


BO 


F2E9 


CD 


F293 


F2EC 


ED 


7B F31B 


F2F0 


C9 





820-11 


MACRO- 


-80 3.44 09- 




Id 


de , 1 inbuf 




ldir 






pop 


de 




pop 


be 




in 


a , (syspio) 




xor 


80h 




out 


(syspio) ,a 




push 


hi 




Id 


hi , 1 inbuf 




ldir 






pop 


hi 




pop 


be 




Id 


a,b 




and 


a 




JP 


m, crtmvo 




or 


c 




jr 


z , crtmvo 




i n 


a , (syspi o) 




jr 


ldirl 


cr tmv :. 


ldir 




crtmvo : 


cal 1 


crtof f 




Id 


sp, (usrstk ) 




ret 





-81 



;set upper buffer 

;move data to upper ram 



;enable destination bank 



;save source address 

;set upper buffer 

;move data from buffer to destination 

;retrieve bytes left to transfer 



;no more move, turn crt ram off and return 

; i f no more 

•.continue transfer one buffer at a crack 

; turn crt ram off 



subttl Resident Crt Driver, 
page 



> 
13 
D 

a. 

m 



> 

"O 

m 

u 

CL 
X* 

m 



F2F1 


E5 


F2F2 


D5 


F2F3 


C5 


F2F4 


F5 


F2F5 


4F 


F2F6 


CD 


F2F9 


Fl 


F2FA 


CI 


F2FB 


D1 


F2FC 


El 


F2FD 


C9 



F2FE 
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1084 
1085 
1086 
1087 
1088 
1089 
1090 
1091 
1092 
1093 
1094 
1095 
1096 
1097 
1098 
1099 
1 100 
1 101 
1 102 
1 103 
1 104 
1 105 
1 106 
1 107 
1 108 
1 109 
1110 
1111 
1112 

I 1 13 

II 14 
1 1 15 
1 1 16 
1 1 17 
1 1 18 
1 1 19 
1 120 
1 121 
1 122 
1 123 
1 124 
1 125 
1 126 
1 127 
1 128 
1 129 
1 130 
1 131 
1 132 
1 133 
1 134 
1 135 
1 136 
1 137 
1 138 
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crtout - Crt Output Driver. 



Entry: Character in register A 

16 bytes of stack space available 
Exit: Char displayed, all registers saved 



crtout : push 


hi 


push 


de 


push 


be 


push 


af 


' 1 d 


c , a 


cal 1 


f astcrt 


pop 


af 


pop 


be 


pop 


de 


pop 


hi 


ret 





F2FE 


ED 


73 F31B 


F3U2 


31 


FFEO 


F305 


DD 


E5 


F307 


DB 


1C 


F309 


B7 




F30A 


F5 




F30B 


CD 


F29C 


F30E 


FB 




F30F 


CD 


0169 


F3 12 


F1 




F313 


F4 


F293 


F3 16 


DD 


El 


F318 


3E 


00 


F3 19 






F31A 


3 1 


F31B 


F31B 






F31D 


C9 





F3 1E 


67 




F31F 


3A 


FF 


F322 


84 




F323 


3C 




F324 


D6 


18 


F326 


30 


FC 


F328 


C6 


78 


F32A 


67 





;maintain users registers on his stack 



;set character to process 
iprocess character quickly 
jrestore callers registers 



fastcrt - fast crt driver. 

Entry: Character in C 

Exit: The only register preserved is SP 

Peeking in register A reveals valuable characters. 

;do not use callers stack 
;since it may disappear 

read system pio 

set bank enable status 

save status for exit code 

turn on crt memory 

enable interrupts 

execute crt driver rom 

get previous bank enable status 

disable bank now if it was disabled on entry 

;sneak balcones golden characters to FAST users 

jrestore callers stack 
; ***** = >. thi s operand word 1s modified at runtime 



cca - compute cursor address. 
Entry: A = Row 



;entry with base absolute 
; ditto 



fastcrt 


: Id 


( usrs t k ) , sp 




Id 


sp.crtstk 




push 


i x 




in 


a , ( syspi o ) 




or 


a 




push 


af 




cal 1 


crton 




ei 






cal 1 


cr tdvr 




pop 


af 




cal 1 


p , crtof f 




pop 


ix 




Id 


a,0 


go Id 


equ 


$-1 




Id 


sp , usrs tk 


usrs tk 


equ 
ret 


$-2 ;** 



cca : 


Id 


h,a 




Id 


a , (base) 




add 


a,h 


cca 1 : 


inc 


a 


cca2 : 


sub 


24 




jr 


nc , cca2 




add 


. a,24+2*crtbas 




Id 


h,a 



ISJ 
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a* 



> 
■a 
■a 

3 

a. 
x' 
m 



1 139 F32Q 2E 00 1 d 1 ,0 

1140 F32D CB 2C sra h 

1141 F32F CB ID re \ 

1142 F331 C9 ret 
1 143 

1144 ;; rstatt - Restore Previous Attribute. 

1145 ; 

1146 F332 01 0000 rstatt: Id bc,0 -.execute previous attribute routine 
1 147 
1 148 
1 149 
1 150 
1 151 
1 152 
1 153 
1 154 
1 155 
1 156 
1 157 
1 158 

1159 subttl Rom-resident Crt Driver 

1 1 60 page 



F332 


01 


0000 


F333 






F335 


C5 




F336 


C9 




F337 


E5 




F338 


21 


01CF 


F339 






F33B 


22 


F333 


F33E 


ED 


43 F339 


F342 


El 




F343 


C9 





rstatt : 


Id 


bc.O 


lstatt 


equ 


$-2 




push 


be 




ret 




setprv : 


push 


hi 




Id 


hi , set 1 ow 


prvat t 


equ 


$-2 




Id 


( lstatt ) ,h1 




Id 


(prvat t ) , be 




pop 


hi 




ret 





> 

D 
D 

a> 

3 
Q. 
X* 
rn 
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1 161 
1 162 
1 163 
1 164 
1 165 
1 166 
1 167 
1 168 
1 169 
1 170 
1171 
1 172 
1 173 
1 174 
1 175 
1 176 
1 177 
1 178 
1 179 
1 180 
1 181 
1 182 
1 183 
1 184 
1 105 
1 186 
1 107 
1 188 
1 189 
1 190 
119 1 
1 192 
1 193 
1 194 
1 195 
1 196 
1 197 
1 198 
1 199 
1200 
1201 
1202 
1203 
1204 
1205 
1206 
1207 
1208 
1209 
1210 
1211 
12 12 
1213 
1214 
1215 



0000 '. 



169 


2A 


FFAC 


016C 


3A 


FFB4 


016F 


77 




0170 


32 


F319 


0173 


3A 


FFB2 


0176 


B7 




0177 


20 


ID 


0179 


3A 


F0E3 


017C 


A1 




0170 


4F 




OWE 


FE 


20 


0180 


38 


14 


182 


3A 


FFB3 


0105 


B1 




0106 


77 




0107 


2C 




0108 


7D 




0109 


E6 


7F 


010B 


FE 


50 


0100 


38 


OA 


01BF 


AD 




0190 


6F 




0191 


CD, 


02F7 


0194 


ia' 


03 


0196 


CD* 


023D 


0199 


22 


FFAC 


019C 


7E 




0190 


3 2 


FFB4 


01A0 


3A 


FFAE 


01A3 


FE 


20 


01A5 


ca 




01A6 


4F 




01A7 


7E 




01A8 


CB 


BF 


01AA 


FE 


20 


01 AC 


79 




01AD 


20 


03 


01AF 


7E 




01 BO 


EE 


00 


01B2 


77 




01B3 


C9 







be 1 ow 






def s 


comres 


; ; 


crtdvr 


- Crt Driver 


crtdvr : 


Id 


hi , (cursor) 




Id 


a , (chrsav) 




Id 


(hi) ,a 




Id 


(gold) ,a 




Id 


a , ( 1 eadin) 




or 


a 




jr 


nz,crtd2 




Id 


a , (mask) 




and 


c 




Id 


c ,a 




cp 


' ' 




jr 


c ,crtd2 


crtdl : 


Id 


a, (attrib) 




or 


c 




Id 


(hi) .a 




inc 


1 




)'d 


a. 1 




and 


01111111b 




cp 


80 




jr 


c,crtd3 




xor 


1 




Id 


\ ,a 




cal 1 


lfeed 




jr 


crtd3 


crtd2 : 


cal 1 


contr 1 


crtd3: 


Id 


(cursor) ,hl 




Id 


a. (hi ) 




Id 


( chrsav ) ,a 




Id 


a , (csrchr) 




cp 


' ' 




ret 


z 




Id 


c ,a 




Id 


a. (hi ) 




res 


7, a 




cp 


' ' 




Id 


a , c 




jr 


z , crtd4 




Id 


a, (hi) 




xor 


00h 


crtd4: 


Id 
ret 


(hi ) .a 



mu 1 t i 



01B4 


EB 




01B5 


36 


00 


01B7 


EB 




01 BO 


3D 




01B9 


20 


4E 



mu 1 t i : 



;execute in banked ram 



;set cursor address 

•.retrieve character under cursor 

jreplace character under cursor 

;bury balcones gold 

;set leadin state 

;if processing escape sequence 
;get keyboard mask 



; i f contro 1 code 

;store displayable character 
jadvance pointer to next column 

; ex tract column* from hi 

;if end of line not reached 

;return cursor to left side 
jexecute line feed 

iprocess control character 
;save cursor pointer for next time 
;get character at new cursor location 
;save for next time ' CRTOUT ' is called 
;get cursor character 

; i f no cursor 



;set character used for cursor 
;if character is a space 
;toggle attribute 

;store cursor character 



Process multiple character escape sequence. 



unconditionally reset the lead-in 
;state to zero 



;if not initial state 



ex 


de.hl 


Id 


(hi ).0 


ex 


de.hl 


dec 


a 


jr 


n z , s e t x y 1 



m 
ro 
oo 
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> 
XI 
T3 

(t) 

x' 

rn 



12 16 
1217 
1218 
1219 
1220 
122 1 
1222 
1223 
1224 
1225 
1226 
1227 
1228 
1229 
1230 
1231 
1232 
1233 
1234 
1235 
1236 
1237 
1238 
1239 
1240 
124 1 
124 2 
1243 
1244 
1245 
1246 
1247 
1248 
1249 
1250 
1251 
1252 
1253 
1254 
1255 
1256 
1257 
1258 
1259 
1260 
1261 
1262 
1263 
1264 
1265 
1266 
1267 
1268 
1269 
1270 
1271 



01BB 



79 



01BC 


E5 




1BD 


21 


028A 


01 CO 


1 


001 1 


01C3 


ED 


Bl 


01C5 


09 




1 C6 . 


09 




01C7 


09 




01C8 


4E 




1C9 


23 




01CA 


46 




01CB 


El 




1CC 


CO 




01CO 


C5 




01CE 


C9 





01CF 


D3 


36 


01D1 


C3 


F337 


01D4 


D3 


35 


01 06 


AF 




01D7 


18 


08 


01D9 


D3 


35 


01DB 


18 


02 


01DD 


D3 


34 


01 OF 


3E 


40 


01E1 


CD 


F337 


01E4 


47 




01E5 


F3 




01E6 


DB 


1C 


01E8 


CB 


B7 


01EA 


BO 




01EB 


FB 




01 EC 


D3 


1C 


01EE 


C9 





01EF 


3E 


80 


01F1 


06 




01 F2 


AF 




01F3 


32 


FFB3 


01F6 


C9 





Id 



a,c ;9et second character of sequence 

if (options and o.esct) ne 
Escape table search 



push 
Id 

l d 
search: cpir 
add 
add 
add 
Id 
inc 
Id 
pop 
ret 
push 
ret 
endi f 



hi 

hi ,esctab 

be , esctbl 

hi ,bc 

hi ,bc 

hi ,bc 

c, (hi ) 

hi 

b, (hi ) 

hi 

nz 

etc 



Set attribute modes. 



set 1 ow : out 
JP 

setbl i ; out 
xor 
jr 

set inv : out 
jr 

setgra: out 
mode: Id 
mode 1 : cal 1 
Id 
di 
in 
res 
or 
ei 
out 
ret 



( low 1 i te) ,a 
setprv 

(chrom2 ) , a 

a 

mode 1 

(chrom2) , a 
mode 

(chroml ) , a 
a,40h 
setprv 
b , a 

a , ( syspi o) 

6, a 

b 

( syspi o) , a 



joptions and o.esct 



-,set lo-light mode 

; select rom 2 

;select standard char set 

; select rom 2 



; se 1 ect rom 1 

•.select alternate char set 

;set up previous attribute 

; 1 ock system 

; read system pio 

; clear rom select bit 

; un 1 ock 

;set or reset display mode 



enatr ; 



Id 
db 

di sat r : xor 
disl: Id 
ret 



Enable/disable (D7) display of selected attribute mode 

; sk ip xor 



a,80h 

6 ; Id b, 

a 

(attrib) ,a 



GIF/ 



OF 



;; setrnsk - Select 7 or 8 bit data from keyboard 

setmsk: rrca ;9et low order bit as upper bit mask 



> 

a> 

Q- 
X* 

rn 
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m 
ro 



1272 


01F8 


F6 


7F 


1273 


01FA 


4F 




1274 


01PB 


1 1 


F0E3 


1275 


01FE 


1A 




1276 


01FF 


32 


F319 


1277 


0202 


79 




1278 


0203 


12 




1279 


0204 


C9 




1280 








1281 








1282 








1283 


0205 


3E 


02 


1284 • 


0207 


12 




1285 


208 


C9 




1286 








1287 


209 


3D 




1288 


020A 


20 


10 


1289 


020C 


6F 




1290 


0200 


3E 


03 


1291 


020F 


12 




1292 


0210 


79 




1293 


021 1 


E6 


7F 


1294 


0213 


D6 


20 


1295 


0215 


08 




1296 


0216 


FE 


18 


1297 


0218 


DO 




1290 


0219 


C3 


F31E 


1299 








1300 


02 1C 


3D 




1301 


0210 


20 


OC 


1302 


021F 


79 




1303 


0220 


E6 


7F 


1304 


0222 


D6 


20 


1305 


0224 


D8 




1306 


0225 


FE 


50 


1307 


0227 


DO 




1308 


0228 


B5 




1309 


0229 


6F 




1310 


022A 


CQ 




1311 








1312 


022B 


3D 




13 13 


022C 


20 


04 


1314 


022E 


D1 




1315 


022F 


C3 


0182 


1316 








1317 


0232 


3 A 


FFAE 


1318 


0235 


3 2 


F319 


1319 


0238 


79 




1320 


0239 


3 2 


FFAE 


1321 


023C 


C9 




1322 








1323 








1324 








1325 


2 3D 


1 1 


FFB2 


1326 


0240 


D2 


01B4 


1327 


0243 


FE 


05 
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or 


7fh 


Id 


c , a 


Id 


de .mask 


Id 


a,(de) 


Id 


(90 Id) , a ; 


Id 


a , c 


Id 


(de) ,a ; 


ret 





;stash balcones gold 
jstore Keyboard mask 

Process cursor position sequence. 

;make leadin=2 next time 

; i f not in state 2 
;clear low cursor pos 

;set state 3 for next time 

-.strip parity bit 

; i f illegal character 

; compute cursor address 

;if not ready for column 

; strip parity bit 

; of esc, '=' ,row,col sequence 

; merge in col# with 1 



;if not escape state 4 
-.pitch address of crtd3 
;display character in C 



se t xy ; 


Id 


a, 2 




Id 


(de),a 




ret 




s e t x y 1 : 


dec 1 


a 




jr 


nz ,m3tst 




Id 


1 ,a 




Id 


a, 3 




Id 


(de) ,a 


setrow; 


Id 


a , c 




and 


07fh 




sub 


' ' 




ret 


c 




cp 


24 




ret 


nc 




Jp 


cca 


m3 1 s t : 


dec 


a 




jr 


nz ,m4tst 


setco 1 : 


Id 


a , c 




and 


07fh 




sub 


' * 




ret 


c 




cp 


80 




r/et 


nc 




or 


1 




Id 


1 .a 




ret 




m4tst : 


dec 


a 




jr 


n z , m5 1 s t 




pop 


de 




JP 


crtdl 


m5 1 s t : 


Id 


a , ( csrchr ) 




Id 


(gold) ,a 




Id 


a , c 




Id 


(csrchr) , a 




ret 




; ; 


contrl 


- process c 


contr 1 : 


Id 


de , 1 eadi n 




JP 


nc , inu 1 t i 




cp 


'E'-64 



;stash balcones gold 
jstore new cursor character 



;point at leadin state 

;if multi code sequence in progress 



m 

o 



> 

n> 

Z> 
CL 

x' 
m 



Balcones Operating System for the XEROX 820-11 
Rum- resident Crt Oliver 



1328 
1329 
1330 
1331 
1332 
1333 
1334 
1335 
1336 
1337 
1338 
1339 
1340 
1341 
1342 
1343 
1344 
1345 
1346 
1347 
1348 
1349 
1350 
135 1 
1352 
1353 
1354 
1355 
1356 
1357 
1358 
1359 
1360 
1361 
1362 
1363 
1364 
1365 
1366 
1367 
1368 
1369 
1370 
1371 
1372 
1373 
1374 
1375 
1376 
1377 
1378 
1379 
1380 
1381 
138 2 
1383 
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0245 


DB 


0246 


E5 


0247 ■ 


2 1 024A 


024A 


06 00 


024C 


09 


0240 


09 


024E 


4E 


024F 


23 


0250 


46 


0251 


El 


0252 


C5 


0253 


C9 


0254 


L12C5 


0256 


F332 


0258 


032F 


025A 


02CE 


025C 


031F 


025E 


02F7 


0260 


02DC 


0262 


02D4 


0264 


02F2 


0266 


02C0 


0268 


02C0 


026A 


02C0 


026C 


0361 


026E 


02C0 


0270 


02C0 


0272 


02CQ 


0274 


02C0 


0276 


02C0 


0278 


02C0 


027A 


0344 


027C 


02C0 


027E 


0357 


0280 


02BD 


0282 


02C0 


0284 


02C0 


0286 


02C9 


0288 


02C1 



0036 



028A 


28 


028B 


29 


028C 


2A 


Q28D 


30 


028E 


31 


028F 


34 


0290 • 


35 



ret 


c 


push 


hi 


Id 


hi , ct 1 ta 


Id 


b,0 


add 


hi ,bc 


add 


hi ,bc 


Id 


c. (hi) 


inc 


hi 


Id 


b,(hl ) 


pop 


hi 


push 


be 


ret 




if 


(opt ions 


ct 1 tab: def w 


def cur 


def w 


rstatt 


defw 


bel 1 


defw 


bakspc 


def w 


tab 


def w 


If eed 


def w 


upesr 


defw 


forspc 


defw 


return 


defw 


nono 


defw 


no no 


defw 


nono 


defw 


c I reos 


defw 


nono 


defw 


nono 


defw 


nono 


defw 


nono 


defw 


nono 


defw 


nono 


defw 


c 1 reo 1 


defw 


nono 


defw 


clrscn 


defw 


escape 


defw 


nono 


defw 


nono 


defw 


homeup 


defw 


stuff 


ctlsiz equ 


$-ct 1 tab 



jcontrol char is out of range 
isave cursor 



; index through control character table 

;get address of control subroutine 
execute control code driver 



and o.esct) 
;Ctr 
;Ctr 
;Ctr 
;Ctr 
;Ctr 
:Ctr 
;Ctr 
;Ctr 
;Ctr 
iCtr 
;Ctr 
;Ctr 
;Ctr 
;Ctr 
;Ctr 
;Ctr 
;Ctr 
; Ctr 
;Ctr 
iCtr 
;Ctr 
:Ctr 
:Ctr 
iCtr 
;Ctr 
;Ctr 
;Ctr 



ne 

-e 

-f' 

-g 

-h 

- i 

"J 

-k 

-1 

-in 

-n 

-o 

"P 

-q 

-r 

-s 
-t 

-u 
-v 



-y 

-z 

-I 

-\ 
-I 



s 


def i 


s 


rest 


s 


the 


s 


curs 


s 


tab 


s 


curs 


s 


curs 


s 


curs 


s 


carr 


s 


not 


s 


not 


s 


not 


s 


c 1 ea 


s 


not 


s 


not 


s 


not 


s 


not 


s 


not 


s 


not 


s 


c 1 ea 


s 


not 


s 


c 1 ea 


s 


esca 


s 


not 


s 


not 


s 


home 


s 


di sp 



ne new cursor character 
ore previous attribute mode 
bel 1 
or left 

or down 

or up 

or right 

iage return 

acceptable 

acceptabl e 

acceptabl e 

r to end-of -screen 

acceptabl e 

acceptabl e 

acceptabl e 

acceptabl e 

acceptabl e 

acceptabl e 

r to end-of-1 ine 

acceptabl e 

r screen 

pe 

acceptabl e 

acceptabl e 

up 
lay control chars 



Escape sequence table. 

Maintains functional compatibility with terminals supporting 
ADM~3a style supersets. 

-.disable attribute 

;enable atribute 

;clear screen 

-.strip keyboard upper bit 

ipass keyboard upper bit 

;char font and blinking 

jchar font and graphics 



esc tab : 


db 


'( 




db 


') 




db 


' * 




db 


'0 




db 


' 1 




db 


'4 




db 


'5 
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1384 
1385 
1386 

138 7 
1388 
1389 
1390 

139 1 
1392 
1393 
1394 
1395 
1396 
1397 
1398 
1399 
1400 
1401 
1402 
1403 
1404 
1405 
1406 
1407 
1408 
1409 
1410 
141 1 
1412 
1413 
1414 
1415 
1416 
1417 
1418 
1419 
1420 

1421 ; 

1422 02BD 3E 01 escape: 

1423 02RF 12 

1424 02C0 C9 nono: 
1425 

1426 ;; 

1427 

1428 02C1 3E 04 stuff: 

1429 

1430 

1431 

1432 ;; 

1433 ; 

1434 02C5 3E 05 defcur: 
1435 
1436 
1437 
1438 
1439 
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029 1 


36 


0292 


3 7 


0293 


38 


0294 


3D 


0295 


45 


0296 


51 


0297 


52 


0298 


57 


0299 


54 


029A 


59 


001 1 




029B 


0361 


029D 


0344 


029F 


03F5 


02A1 


037C 


02A3 


03DC 


02A5 


03A4 


02A7 


0205 


02A9 


1CF 


02AB 


01D9 


02AD 


1D4 


02AF 


100 


02B1 


1 04 


02B3 


01F7 


02B5 


01F7 


02B7 


0357 


02B9 


1EF 


02BB 


1 F 2 



02C1 


3E 04 


02C3 


12 


02C4 


C9 



02C5 


3E 


02C7 


12 


02C8 


C9 



db 


'6' 


db 


'7' 


db 


'8' 


db 


' = • 


db 


'E' 


db 


•Q* 


db 


'R' 


db 


'W 


db 


'T' 


db 


'V 


esctbl equ 


$-esct ab 


escadr: defw 


c 1 reos 


defw 


c 1 reol 


defw 


chrde 1 


defw 


1 indel 


defw 


chrins 


defw 


1 inins 


defw 


set xy 


defw 


set 1 ow 


defw 


set inv 


defw 


setbl i 


defw 


setgra 


defw 


setbl i 


defw 


setmsk 


defw 


setmsk 


defw 


clrscn 


defw 


enatr 


defw 


di sat r 


if 1 




if 


($-escad 


.pr int x 


Escape t 


endi f 




endi f 




endif 





char font and bl inking 
char font and inverse video 
char font and lo-light 
position cursor 
1 ine insert 
character insert 
1 ine de 1 ete 
character delete 
clear to end of line 
clear to end of screen 



;o.esct and options 



escape - Initialize escape sequence. 



Id 
Id 
ret 



a. 1 
(de) .a 



;set sequence state 
;for escape processing 



stuff - Enable next char to be stored directly. 



Id 
Id 
ret 



a, 4 
(de) .a 



;set sequence state 

;for control char output mode 



de,fcur - Enable next chara to be new cursor. 



Id 
Id 
ret 



a, 5 
(de),a 



homeup - Move cursor to upper left. 



Tl 


Ba 1 cones 


Opera t i i 


•u s v 


'S t em 


JJ 


Roiirresi dent Ci t 


Driver 




1440 


02C9 


OE 


20 




1441 


02CB 


C3 


02 10 




1442 










1443 










1444 










1445 


02CE 


7D 






1446 


02CF 


E6 


7F 




1447 


02D1 


C8 






1448 


02D2 


20 






1449 


02D3 


C9 






1450 










1451 










1452 










1453 


02D4 


7D 






1454 


02D5 


E6 


7F 




1455 


02D7 


FE 


4F 




1456 


02D9 


DO 






1457 


02DA 


2C 






1458 


02DB 


C9 






1459 










1460 










1461 










1462 


02DC 


1 1 


FF80 




1463 


02DF 


19 






1464 


02E0 


7C 






1465 


02E1 


FE 


30 




1466 


02E3 


DO 






1467 


02E4 


26 


3B 




1468 


02E6 


C9 






1469 










1470 










1471 










1472 


02E7 


1 1 


0080 




1473 


02EA 


19 






1474 


02EB 


7C 






1475 


02EC 


FE 


3C 




1476 


02EE 


D8 






1477 


02EF' 


26 


30 




1478 V 


02F1 


C9 






1479 










1480 










1481 










1482 


02F2 


7D 






1483 


02F3 


E6 


80 




1484 


02F5 


6F 






1485 


02F6 


C9 






1486 










1487 










1488 








> 


1489 


02F7 


7D 




1490 


02F8 


17 




"O 


1491 


02F9 


7C 




a> 


1492 


02FA 


17 




Zi 


1493 


02FB 


E6 


IF 


Q. 


1494 


02FD 


4F 




X* 


1495 


02FE 


CD 


02E7 


rn 




• 
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homeup: lei c,' ' ;use cursor addressing routine 

jp setrow ;to do homeup almost for free 

; ; bakspc - Move cursor left. 

» 

bakspc: Id a,l jcheck for left margin 

and Oil 1 11 1 lb 

ret z ;abort if in leftmost column 

dec 1 ;back up cursor pointer 

ret 

;; forspc - Move cursor right. 

jcheck for rightmost colunm 

;do nothing if already there 

;else advance the cursor pointer 

upscr - Move cursor up. 

upesr: Id de,-128 jsubtract 1 from row* component 

; of cursor pointer in hi 

jcheck for underflow of pointer 

;wrap cursor around modulo 3k 



f orspc : 


Id 


a, 1 




and 


Oil 11 11 lb 




cp 


79 




ret 


nc 




inc 


1 




ret 





1 feed: 



Id 


de,-128 


add 


hi ,de 


Id 


a,h 


cp 


crtbas 


ret 


nc 


Id 


h, crt top- 1 


ret 





dncsr - Move cursor down. 



dncsr : 


Id 


de, 128 




add 


hi ,de 




Id 


a.h 




cp 


crttop 




ret 


c 




Id 


h , crtbas 




ret 




; ; 


return 


- Move cur 


return : 


Id 


a, 1 




and 


10000000b 




Id 


1 ,a 




ret 





; add 1 to row# component 
; of cursor pointer in hi 

-.check for overflow of pointer 

;reset pointer modulo 128*24 

left s ide . 

; c I ear col umn 

;move cursor pointer back 
; to start of 1 ine 



lfeed - Move cursor down with scroll 



Id 


a, 1 


rla 




Id 


a.h 


r 1 a 




and 


0001 1111b 


Id 


c , a 


cal 1 


dncsr 



jextract row# component of hi 

;copy row# into c for scroll test 
;mOve cursor to next row down 



0301 


3 A 


FFB1 


0304 


91 




0305 


3 2 


F319 


0308 


CO 




0309 


E5 




030 A 


3A 


F31C 


030P 


3C 




030E 


C4 


040F 


031 1 


CD 


0341 


0314 


29 




0315 


7C 




0316 


E6 


IF 


0318 


32 


FFB1 


031B 


D3 


14 


0310 


El 




031E 


C9 





rn 
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1496 
1497 
1498 
1499 
1500 
1501 
1502 
1503 
1504 
1505 
1506 
1507 
1508 
1509 
1510 
151 1 
1512 
1513 
1514 
1515 
1516 
1517 
1518 
1519 
1520 
1521 
1522 
1523 
1524 
1525 
1526 
1527 
1528 
15 29 
1530 
1531 
1532 
1533 
1534 
1535 
1536 
1537 
1538 
1539 
1540 
1541 
1542 
1543 
1544 
1545 
1546 
1547 
1548 
1549 
1550 
1551 
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03 IF 


1 1 


03 2 2 


7D 


0323 


E6 


0325 


03 


0326 


FE 


032B 


DO 


0329 


7D 


032A 


E6 


032C 


6F 


032D 


19 


032E 


C9 



0341 



0008 



78 



50 



F8 



032F 


3E 


35 


0331 


D3 


29 


0333 


06 


61 


0335 


10 


FE 


0337 


03 


28 


0339 


06 


61 


033B 


10 


FE 


033D 


3D 




033E 


20 


F1 


0340 


CO 





CD 02F2 



0344 


7D 




0345 


E6 


7F 


0347 


FE 


50 


0349 


DO 




034A 


ED 


44 


034C 


C6 


50 



tab: 



clreol 



Id 

sub 

Id 

ret 

push 

Id 

inc 

cal I 

cal 1 

add 

Id 

and 

Id 

out 

pop 

ret 



a , (base ) 

c 

(gold) , a 

nz 

hi 

a , (usrstk+ 1 ) 

a 

nz ,bbg 

clrl in 

hi. hi 

a,h 

0001 1 11 lb 

(base) , a 

(scro 1 1 ) , a 

hi 



;test if cursor was on bottom row 
;of screen before moving down 
;send scroll flag back to fast users 
;exit if not at bottom 
;prepare scroll screen up 



;bury balcones gold, unless monitor running 
;fill top line with spaces 

;get row* component of hi into a 

jstore new base line* 
jscrol 1 top line to bottom 
jrestore cursor 



tab - Move cursor to next tab stop. 



Id 


de.8 


Id 


a, 1 


and 


01 1 1 1000b 


add 


a , e 


cp 


80 


ret 


nc 


Id 


a, 1 


and 


1111 1000b 


Id 


1 .a 


add 


hi .de 


ret 





;tabs are every 8 columns 
;get column component of 
jprevious tab position 



;if next tab column past end of line 
;advance cursor to next tab stop 



bel 1 



Move speaker back and forth. 



bel 1 : 


Id 


a , b 1 1 i m 


bel 1 1 : 


out 


(bel 1 on) ,a 




Id 


b.blonc 




djnz 


$ 




out 


(bel lof ) ,a 




Id 


b.blofc 




djnz 


$ 




dec 


a 




jr 


nz .bel 1 1 




ret 





; ; clrlin - Clear line. 
c 1 r 1 in: ca I I return 



;Be11 time constant 

;push speaker out 

;set Bell on time constant 

;pause B*2 micro seconds 

; yank speaker in 

;set Bell off time constant 



;if more noise to make 



jreturn cursor and fall through clreol 



clreol - Clear to end of line. 



Id a. 1 

and 01111111b 

cp 80 

ret nc 

neg 

add a. 80 



;get column component of cursor posistion 

;if someone busted curpos 

-.calculate number of characters to clear 



m 
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1552 
1553 
1554 
1555 
1556 
1557 
1558 
1559 
1560 
1561 
1562 
1563 
1564 
1565 
1566 
1567 
1568 
1569 
1570 
1571 
1572 
1573 
1574 
1575 
1576 
1577 
1570 
1579 
1580 
1581 
1582 
1583 
1584 
1585 
1586 
1587 
1588 
1589 
1590 
159 1 
1592 
1593 
1594 
1595 
1596 
1597 
1598 
1599 
1 600 
1601 
1602 
1603 
1604 
1605 
1606 
1607 



034E 


47 


034F 


7D 


0350 


36 


0352 


2C 


0353 


10 


0355 


6F 


0356 


C9 



20 



FB 



clrl: 



0357 


21 


3000 


035A 


3E 


17 


035C 


32 


FFB1 


035F 


D3 


14 



clrscri: 



0361 


CD 


0344 


0364 


E5 




0365 


ED 


4B FFB1 


0369 


70 




036A 


17 




036B 


7C 




036C 


17 




036D 


E6 


IF 


036F 


B9 




0370 


28 


08 


0372 


CD 


02E7 


0375 


CD 


0341 


0378 


18 


EB 


037A 


El 




037B 


C9 





c 1 reos : 
c 1 rs 1 : 



037C 


E5 




037D 


CD 


040F 


0380 


29 




0381 


7C 




0382 


E6 


IF 


0384 


ED 


4B FFBO 


0388 


CD 


03D1 


038B 


B8 




038C 


28 


10 


038E 


C5 




038F 


01 


0050 


0392 


ED 


BO 


0394 


CI 




0395 


79 




0396 


3C 




0397 


FE 


18 


0399 


38 


ED 


039B 


AF 




039C 


18 


EA 


039E 


EB 




039F 


CD 


0341 



clrs2: 



1 inde I 



1 i ncJ 1 : 



Id 

Id 

Id 

inc 

djnz 

Id 

ret 

c 1 rscn 

Id 
Id 
Id 
out 

c 1 reos 

cal 1 

push 

id 

Id 

rla 

Id 

r 1 a 

and 

cp 

jr 

cal 1 

cal 1 

jr 

pop 

ret 



b.a 
a, 1 

(hi),' 
1 

clrl 
1 .a 



; save cursor column 
;clear next location 

;if end of line not clear 
;restore cursor column 



clear visible screen memory. 
; home cursor 



h 1 , crtmem 
a, 23 
(base) , a 
(scro I I ) , a 



;put line 23 at bottom of screen 

;note scroll register gets A8-A12, not dQ-d7 



clear to end of screen. 



c 1 reo I 

hi 

be , (base) 

a. 1 

a,h 

0001 1111b 

c 

z,clrs2 

dncsr 

c 1 r 1 in 

c 1 rs 1 

hi 



lindel - Line delete. 



1 ind2: 
1 ind3: 



push 

cal I 

add 

Id 

and 

Id 

cal 1 

cp 

jr 

push 

Id 

Idir 

pop 

Id 

inc 

cp 

jr 

xor 

jr 

ex 

cal 1 



hi 

bbg 

h I , h 1 

a,h 

0001 1111b 

be , ( base- 1 ) 

Sllip 

b 

z. 1 ind'2 

be 

be, 80 

be 

a , c 

a 

24 

c , I ind 1 

a 

I indl 

de.hl 

c 1 r I in 



;clear remainder of current row 

;save cursor location 

;set bottom screen row to c 



;get row# component of hi into a 



;if hi is on bottom row of screen 

-.point hi to next row 

;and fill that line with spaces 

;restore original cursor pointer 



;save cursor address 
;bury balcones gold 



jextract row 

;get base screen row in b 

,-set move parameters 

; i f l ast 1 ine 
;b=last line, c=row 



; wrap 

;move next I ine 
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iboa 


03A2 


El 




1609 


03A3 


C9 




1610 








161 1 








1612 








1613 


03A4 


E5 




1614 


03A5 


3E 


17 


1615 


03 A 7 


CD 


F31E 


1616 


03AA 


CD 


040F 


1617 


03AD 


El 




161B 


03AE 


E5 




1619 


03AF 


29 




1620 


03B0 


7C 




1621 


03B1 


E6 


IF 


1622 


03B3 


47 




1623 


03B4 


3A 


FFB1 


1624 


03B7 


BB 




1625 


03bB 


2B 


13 


1626 


03BA 


3D 




1627 


03BB 


F2 


03C0 


162B 


03BE 


3E 


17 


1629 


03C0 


CD 


03D1 


1630 


03C3 


EB 




163 1 


03C4 


C5 




1632 


03C5 


01 


0050 


1633 


03CB 


ED 


BO 


1634 


03CA 


CI 




1635 


03CB 


18 


EA 


1636 


03CD 


E1 




1637 


03CE 


E5 




163B 


03CF 


IB 


CE 


1639 








1640 








164 1 








1642 


03D1 


4F 




1643 


03D2 


CD 


F324 


1644 


03D5 


EB 




1645 


03D6 


79 




1646 


0307 


CD 


F323 


1647 


03DA 


79 




164B 


03DB 


C9 




1649 








1650 








1651 








1652 


03DC 


E5 




1653 


• 03DD 


7D 




1654 


03DE 


E6 


7F 


1655 


03E0 


ED 


44 


1656 


03E2 


C6 


4F 


1657 


03E4 


47 




1658 


03E5 


7E 




1659 


03E6 


36 


20 ' 


1660 


03EU 


28 


06 


1661 


03EA 


2C 




1662 


03EB 


4E 




1663 


03EC 


7 7 







pop 


hi 




ret 




; ; 


1 i n i n s 


- Line ins 


1 in ins : 


push 


hi 




Id 


a. 23 




cal 1 


cca 




cal I 


bbg 




pop 


hi 




push 


hi 




add 


hi ,hl 




Id 


a,h 




and 


0001 1111b 




Id 


b,a 




Id 


a , (base) 


1 ini 1 : 


cp 


b 




jr 


z, 1 ini3 


^ 


dec 


a 




JP 


p. 1 ini2 




Id 


a, 23 


1 ini 2: 


cal 1 


srnp 




ex 


de.hl 




push 


be 




Id 


bc.BO 




Idir 






pop 


be 




jr 


1 ini 1 


1 i n i 3 : 


pop 


hi 




push 


hi 




jr 


1 ind3 



srnp : 



jrestore original cursor 



;save cursor position 
;get bottom 1 ine 
; compute cursor address 
;bury balcones gold 



jextract cursor row 
; set 1 ast 1 ine 
;if move complete 

;set move parameters 

;move next 1 ine 

jrestore cursor 

; c 1 ear cursor 1 ine 



srnp - Set move parameters. 

;save re* 



Id 


c , a 


cal 1 


cca2 


ex 


de.hl 


Id 


a, c 


cal 1 


ccal 


Id 


a . c 


ret 





chrins - Character insert. 

;set cursor column 



c\m^ ins : 


push 


hi 




Id 


a, 1 




and 


01111111 




neg 






add 


a, 79 




Id 


b.a 




Id 


a, (hi) 




Id 


(hi),' ' 




jr 


2 , chrin2 


chr in 1 : 


ine 


1 




Id 


c,(hl ) 




Id 


(hi) .a 



;set move length = 79-column 



; number of chars' to move 
;get char under cursor 
jclear char under cursor 
;if cursor in last column 
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1664 

1665 

1666 

1667 

1668 

1669 

1670 

1671 

1672 

1673 

1674 

1675 

1676 

1677 

1678 

1679 

1680 

1681 

1682 

1683 

1684 

1685 

1686 

1687 

1688 

1689 

1690 

169 1 

1692 

1693 

1694 

1695 

1696 

1697 

1698 

1699 



03ED 
03EE 
Q3FG 
03F3 
03F4 



03F5 
Q3F6 
03F7 
03F9 
03FB 
03FD 
03FE 
0400 
0401 
0402 
0403 
0406 
0407 
040A 
040B 
040D 
040E 



040F 
04 12 
0415 
0418 
041A 



79 

10 FA 

32 F319 

El 

C.9 



E5 
7 

E6 7F 
ED 44 
C6 4F 
4F 

06 00 
54 
50 

1A 

32 F319 

23 

C4 0418 

EB 

36 20 

El 

C9 



CD 02F2 
1 1 FF5C 
01 0050 
ED BO 
C9 



1 d 

d jnz 
chrin2; Id 
pop 
ret 

• : chrde 1 



chrde 1 



Dbg: 



I di rx : 



push 

Id 

and 

neg 

add 

Id 

Id 

Id 

Id 

Id 

Id 

inc 

cal 1 

ex 

Id 

pop 

ret 



a , c 

chrinl 
(gold) ,a 
hi 



sshift line Into the gold mine 



Character delete. 



hi 

a, 1 

01111111b 

a, 79 

c .a 

b,0 

d,h 

e, 1 

a.(de) 

(gold) .a 

hi 

n z , 1 d i r x 

de . h 1 

(hi).' ' 

hi 



; isolate cursor column 

jnumber of chars to move = 79-column 

;mine balcones gold 



; blank last char on line 
jrestore cursor 



bbg - bury balcones gold. 

cal 1 return 
id de.linbuf 
Id be, 80 
Idir 
ret 

subttl Logical to Physical Driver .Executioner 
page 



> 

a. 

X* 

m 



> 

D 

D 
rt> 

Q. 
X* 
m 
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1700 
1701 
1702 
1703 
1704 
1705 
1706 
1707 
1700 
1709 
1710 
17 11 
1712 
17 13 
1714 
17 15 
1716 
1717 
1718 
1719 
1720 
1721 
1722 
17 23 
17 24 
17 25 
1726 
1727 
1720 
17 29 
1730 
1731 
1732 
17 33 



05 18! 



F344 


23 


F345 


E5 


F346 


23 


F347 


5E 


F348 


21 F360 


F34B 


16 00 


F34D 


19 


F34E 


19 


F34F 


5E 


F350 


23 


F351 


7E 


F352 


21 F380 


F355 


19 


F356 


19 


F357 


5E 


F358 


23 


F359 


56 


F35A 


El 


F35B 


77 


F35C 


28 


F350 


D5 


F35E 


C9 



xqdvr : 
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jcode goes in ram 



Xqdvr - Execute Physical Driver. 

Entry: HL = Pointer to Physical Drive Request Block 

;point at physical unit 

;set logical drive 

;Set driver mapping table address 

;index into driver select table 

;set physical driver index 

;set physical unit 

;set Driver table address 

;set physical driver address 



; recover request block address 
jstore physical unit 

jexecute physical driver 



inc 


hi 


push 


hi 


inc 


hi 


Id 


e, (hi ) 


Id 


hi ,Sel tab 


Id 


d,0 


add 


hi ,de 


add 


hi ,de 


Id 


e,(hl) 


inc 


hi 


Id 


a, (hi) 


Id 


hi .Drvtab 


add 


hi ,de 


add 


hi ,de 


Id 


e,(hl) 


inc 


hi 


Id 


d, (hi) 


pop 


hi 


Id 


(hi), a 


dec 


hi 


push 


de 


ret 





subttl Physical Disk Driver Area 
page 



m 

00 



•a 
a 

m 



035f 



F35F 
000F 

F35F 



F360 



F360 


01 


00 


F362 


01 


01 


F364 


01 


02 


F366 


1 


03 


F368 


01 


04 


F36A 


01 


05 


F36C 


01 


06 


F36E 


01 


07 


F370 


00 


00 


F372 


00 


00 


F374 * 


00 


00 


F376 


00 


00 


F37B 


00 


00 


F37A 


00 


00 


F37C 


00 


00 


F37E 


00 


00 



F380 


F42A 


F382 


F4B0 


F384 


0000 


F386 


0000 


F388 


0000 


F3BA 


0000 


F38C 


0000 



Wasted: 
bndry 
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1734 
1735 
1736 
1737 
1738 
1739 
1740 
1741 
1742 
1743 
1744 
1745 
1746 
1747 
1748 
1749 
1750 
1751 
1752 
1753 
1754 
1755 
1756 
1757 
1758 
1759 
1760 
1761 
1762 
1763 
1764 
1765 
1766 
1767 
1768 
1769 
1770 
1771 
1772 
1773 
1774 
1775 
1776 
1777 
1778 
1779 
1780 
1781 
1782 
1783 
1784 
1785 
1786 
1787 
1788 
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Physical Disk Driver Area. 

above 
d&seg 
Waste space to get drivers on page boundry. 



equ Ofh 

if ($ and bndry) ne 

defs bndry+l-($ and bndry), -1 

endi f 

Logical to Physical Drive Mapping Tables. 

Seltab contains two bytes per logical CP/M drive A-P. 
The first byte is an index into the physical driver 
address table below. The second byte is a unit number 
that is passed to the driver by the standard deblocker. 



Floppy Unit 

Floppy Unit 1 

Floppy Unit 2 

Floppy Unit 3 

Rigid Partition 

Rigid Part i t i on 1 

Rigid Partition 2 

Rigid Part i t ion 3 

Error Driver 

Error Driver 

Error Driver 

Error Driver 

;Error Driver 
-.Error Driver 
;Error Driver 
;Error Driver 



Physical Driver Address Table. 

Dvrtab contains the addresses of several independent 
physical disk drivers. By convention, driver U always 
returns a select error. 



Se 


tab: 




.A 


defb 


\ .0 


.B 


defb 


1 , 1 


.C 


defb 


1 .2 


.D 


defb 


1 .3 


.E 


defb 


1 .4 


.F 


defb 


1 ,5 


.G 


defb 


1 ,6 


.H 


defb 


1 »7 


. I 


defb 


0,0 


.J 


defb 


0,0 


.K 


defb 


0,0 


.L 


defb 


0,0 


.M 


defb 


0,0 


.N 


defb 


0.0 


.0 


defb 


0.0 


.P 


defb 


0,0 



Drvtab; 


def w 


Se 1 err 




def w 


Dskdvr 




def w 







def w 







def w 







def w 







def w 






select error physical driver 

Disk driver (WD or SA) 

Empty physical driver expansion slots 



> 

"O 

u 

x' 
m 
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FFFF 



1789 


F38E 


1790 




1791 




1792 




1793 


FCBO 


1794 


FDOO 


1795 


FD20 


1796 


FD40 


1797 


FD60 


1798 


0000 


1799 


0000 


1800 


0000 


1801 


0000 


1802 




1803 


FD80 


1804 


FDAO 


1805 


FDCO 


1806 


FDEO 


1807 


FEOO 


1808 


FE80 


1809 


FECO 


18 10 


FEED 


101 1 




1812 




1813 





MACRO-80 3.44 09-Dec-BI 

defw 0-1 ;inark last empty expansion slot 

Overlaid Monitor Ram Address Definitions. 



director buffer 

Directory Check Vector for Floppy Drive 

Directory Check Vector for Floppy Drive 1 

Directory Check Vector for Floppy Drive 2 

Directory Check Vector for Floppy Drive 3 

No Check Vector for Rigid Partition 

No Check Vector for Rigid Partition 1 

No Check Vector for Rigid Partition 2 

No Check Vector for Rigid Partition 3 

Floppy Drive. Allocation Vector 
Floppy Drive 1 Allocation Vector 
Floppy Drive 2 Allocation Vector 
Floppy Drive 3 Allocation Vector 
Rigid Partition Allocation vectors 



dirbuf 


equ 


OfcBOh 


chkOO 


equ 


OfdOOh 


chkOI 


equ 


0fd20h 


chk02 


equ 


Qfd40h 


chk03 


equ 


0fd60h 


chk04 


equ 





chk05 


equ 





chk06 


equ 





chk07 


equ 





al 100 


equ 


OfdBOh 


al 101 


equ 


OfdaOh 


al 102 


equ 


OfdcOh 


al 103 


equ 


OfdeOh 


al 104 


equ 


OfeOOh 


al 105 


equ 


OfeBOh 


al 106 


equ 


Of ecOh 


al 107 


equ 


Of eeOh 




subtt 1 


Disk P 




page 





rn 
CD 



m 
O 
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1014 

18 15 

1816 

18 17 P390 0000 0000 Dpbase: 

1818 

1819 

1820 

1821 

1822 

1823 ' 

1824 

1825 

1826 

1827 

1828 

1829 

1030 

183 1 
1832 
1833 
1834 
1835 
1836 
1837 
1038 
1839 
1840 
104 1 
1042 

184 3 
1844 
1845 
1046 
1847 
1848 
1849 
1050 
1051 
1052 
1053 
1054 
1055 
1056 
1857 
1850 
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Disk Parameter Headers. 



P390 


0000 


0000 


F394 


0000 


0000 


F390 


FC0O 


0000 


F39C 


FD00 


FDOO 


F3A0 


0000 


0000 


F3A4 


0000 


0000 


F3A0 


fcoo 


0000 


F3AC 


FD20 


FDAO 


F3B0 


0000 


0000 


F3B4 


0000 


0000 


F3B0 


FCOO 


0000 


F3BC 


FD40 


FDCO 


F3C0 


0000 


0000 


F3C4 


0000 


0000 


F3C0 


FCOO 


0000 


F3CC 


FD60 


FDEO 


F3D0 


0000 


0000 


F3D4 


0000 


0000 


F3D0 


FCOO 


F470 


F3DC 


0000 


FEOO 


F3E0 


0000 


0000 


F3E4 


0000 


0000 


F3E0 


FCOO 


F400 


F3EC 


0000 


FE80 


F3F0 


0000 


0000 


F3F4 


0000 


0000 


F3F0 


FCOO 


F490 


F3FC 


0000 


FECO 


F400 


0000 


0000 


F404 


0000 


0000 


F400 


FCOO 


F4A0 


F40C 


0000 


FEEO 



dw 


0,0,0,0 


dw 


dirbuf ,0 


dw 


chkOO.al 100 


dw 


0.0,0,0 


dw 


dirbuf ,0 


dw 


chkOI , al 101 


dw 


0,0,0,0 


dw 


dirbuf ,0 


dw 


chk02,al 102 


dw 


0,0,0,0 


dw 


dirbuf ,0 


dw 


chk03,al 103 


dw 


0,0,0.0 


dw 


di rbuf , Dpbrg4 


dw 


chk04,al 104 



dw 



dw 
dw 



dw 
dw 



dw 



dw 
dw 



0,0,0,0 

di rbuf , Dpbrg5 
chk05,al 105 

0,0,0.0 

di rbuf , Dpbrg6 
chk06,al 106 

0,0,0,0 

di rbuf ,Dpbrg7 
chk07 ,al 107 



;Floppy Drive 



;Floppy Drive 1 



; F 1 oppy Drive 2 



;Floppy Drive 3 



;Rigid Parti t ion 



; Rigid Part i t ion 1 



;Rigid Part i t i on 2 



•.Rigid Partition 3 



subttl Sector Translate Tables 
page 



> 

0> 

Q. 
X* 

m 



> 

D 

a 



F4 10 


1 


07 0D 


13 


F414 


19 


05 OB 


1 1 


F418 


17 


03 09 


OF 


F41C 


15 


02 08 


OE 


F4 2G 


14 


1A 06 


OC 


F424 


12 


18 04 


OA 


F428 


10 


16 




F42A 


2 1 


0000 




F42D 


F6 


FF 




F42F 


C9 
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1859 

I860 

1861 

1862 

1863 

1864 

1865 F4 10 1 07 OD 13 trn6: 

1866 

1867 

1868 

1869 

1870 

1871 

1872 

1873 F42A 21 0000 ■ selerr: 

1874 

1875 

1876 

1877 

1878 
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Sector Translation Tables. 

For 8 inch single density drives. 
Skew by 6 



db 


01 


07 


13, 


19 


db 


25 


,05 


1 1 , 


17 


db 


23 


03 


09, 


15 


db 


21 


02 


08 


14 


db 


20 


26 


06, 


12 


db 


18 


24 


04, 


10 


db 


16 


22 






Id 


hi 









or 


-1 








ret 











subttl Floppy Disk Parameter Blocks 
page 



jT Balcones Operating System for the XEROX 820-11 MACR0-80 3.44 09-Dec-81 
fvj Floppy Disk Pacameter Blocks 

1879 

1880 ;; Floppy Disk Parameter Blocks, one per media format. 

1881 ; 

1882 F430 dpb8s: 

1883 ; Single Density, Single side 
1884 

1885 F430 001A dw 26 ;spt 

1886 F432 03 07 00 db 3,7,0 ;blkshf, bikmsk, nullmsk 

1887 F435 00F2 003F dw 242,63,192,16,2 ; dsw , di mi, all oc0 1 , chks i z , t rk off 



> 

Cl 
X* 

m 



F430 


00 1 A 


F432 


03 7 00 


F435 


00F2 003F 


F439 


00C0 0010 


F43D 


0002 


F43F 


00 



1888 

1889 

1890 F43F 00 db ; 1 28 byte sectors 

189 1 

1892 ; Single Density, Double Side 

1893 

1894 F440 001A dw 26 ;spt 

1895 F442 04 OF 01 db 4,15,1 ;blkshf, bikmsk, nullmsk 

1896 F445 00F6 007F dw 246 , 1 27 , 192 , 1 6 , 2 ; dsw , di rm, a M ocO 1 , chks i z , t rk off 



F440 


001 A 


F442 


04 OF 01 


F445 


00F6 007F 


F449 


00C0 0010 


F44D 


0002 


F44F 


00 



189 7 

1898 

1899 F44F 00 db ;128 byte sectors 

1900 

1901 t F450 dp'bBd: 

1902 ; Double Density, Single Side 
1903 

1904 F450 0034 dw 2*26 I ; spt 

1905 F452 04 OF 01 db 4,15,1 ' ; b I kshf ,. b 1 kmsk . nullmsk 

1906 F455 00F2 007F dw 242 . 1 27 , 1 92 . 32 , 2 ; dsw , d i rm, a 1 1 oc0 1 , chks i z , t rk of f 



F4 50 


0034 


F452 


04 OF 01 


F455 


00F2 007F 


F459 


00C0 0020 


F45D 


0002 


F45F 


81 



1907 

1908 

1909 F45F 81 db Blh . ; 256 byte sectors, track zero single density 

1910 

1911 ; Double Density, Double Side 

1912 

1913 F460 0034 dw 2*26 ; spt 

1914 F462 05 IF 03 db 5,31,3 ;blkshf, bikmsk, nullmsk' 

1915 F465 Q0F6 007F dw 246 , 1 27 . 192 , 32 , 2 ; dsw , di rm, a 1 1 ocO 1 , chks iz . t rk off 



F460 


0034 


F462 


05 IF 03 


F465 


00F6 007F 


F469 


OOCO 0020 


F46D 


0002 


F46F 


81 



1916 

1917 

1918 F46F 81 db 81h ; 256 byte sectors, track zero single density 

1919 

1920 subttl Micro Floppy Disk Parameter Blocks 

1921 page 



> 

a 

D 

a 

rn 



Balcones Opera t i ny System for the XEROX 820-11 
Micro Floppy Disk Parameter Blocks 



1922 
1923 
1924 
1925 
1926 
1927 
1928 
1929 
1930 
1931 
1932 
1933 
1934 
1935 
1936 
1937 
1938 
1939 
1940 
1941 
1942 
1943 
1944 
1945 
1946 
1947 
1948 
1949 
1950 
1951 
1952 
1953 
1954 
1955 
1956 
1957 
1958 
1959 
1960 
1961 
1962 
1963 
1964 



F470 



F490 



dpb5s : 



F470 


0012 


F472 


03 07 00 


F475 


0052 00 IF 


F479 


0080 0008 


F470 


0003 


F47F 


00 



F480 


OO 1 2 


F482 


03 07 00 


F485 


OOAC 00 IF 


F489 


0080 0008 


F48D 


0003 


F48F 


00 



dpb5d: 



F490 


002 2 


F492 


03 07 00 


F495 


009C 003F 


F499 


00C0 0010 


F490 


0003 


F49F 


8 1 



F4A0 


0022 


F4A2 


04 OF 01 


F4A5 


00A2 003F 


F4A9 


00C0 0010 


F4AD 


0003 


F4AF 


81 
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Single Density, Single Side 



dw 
db 
dw 



18 

3,7,0 

82,31,128,8,3 ; dsw , di rm, a 1 1 ocOl , chks 1 z , t rk off 



; spt 

jblkshf, blkmsk, nulmsk 



db ;128 byte sectors 

Single Density, Double Side 

dw 18 ;spt 

db 3,7,0 ;b1kshf, blkmsk, nulmsk 

dw 172,31,128,8,3 ; dsw , di rm, a I I ocO 1 , chks iz , t rk off 



db 



; 1 28 byte sectors 



Double Density, Single Side 

dw 17*2 ;spt 

db 3,7,0 jblkshf, blkmsk, nulmsk 

dw 156,63,192,16.3 ; dsw , di rm, a 1 1 ocO 1 , chksi z , t rk off 



db 81h ; 256 byte sectors, track zero single density 

Double Density, Double Side 



dw 17*2 

db 4,15,1 

dw 162,63, 192, 16,3 



db 



81h 



spt 

blkshf, blkmsk, nulmsk 

dsw ,di rm, alloc01,chksiz,trk off 



;256 byte sectors, track zero single density 



subttl Western Digital WD-1797-02 Floppy Disk Driver 
page 



rn 



m Ba 1 cone 
■^ Western 

1965 
1966 
1967 
1968 
1969 
1970 
1971 
1972 
1973 
1974 
1975 
1976 
1977 
1978 
1979 
1980 
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Standard Disk Driver Interface Definitions. 

The main entry point (FLOPPY) is called with HL pointing 
to a disk driver request block. All information is passed 
in this request as follows: 



HL-> 



db 


command 


db 


phuni t 


db 


cpuni t 


dw 


track 


dw 


sector 


dw 


address 



;1 = read, = write, -1 = select dph 
{physical unit for request (0-3) 
;CP/M logical drive for request (0-15) 
;CP/M track number (offset already applied) 
;Phys sector number (after deblocking) 
;CP/M dma transfer address 



subttl Assembly Constants 
page 



> 

x" 
m 



> 

D 
O 

a> 

•3 
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1981 




1982 




1983 


0066 


1984 




1985 




1986 




1987 


0010 


1988 


0010 


1989 


001 1 


1990 


0012 


1991 


00 13 


1992 


001C 


1993 


0030 


1994 


0031 


1995 




1996 




1997 




1998 




1999 


0007 


2000 


0004 


2001 


0005 


2002 


0006 


2003 


00A0 


2004 




2005 


0040 


2006 


0028 


2007 




2008 


0004 


2009 


0005 


2010 


0006 


201 1 


000A 


2012 




2013 




2014 





NMI 



equ 



00066h 



.address of non maskable Interrupt 



WD 1797 I/O port addresses. 



wdsr 


equ 


lOh 


wdcr 


equ 


lOh 


wdtr 


equ 


1 In 


wdsn 


equ 


12h 


wddt 


equ 


13h 


wds 1 


equ 


Ich 


wdsd 


equ 


30h 


wddd 


equ 


31h 



; status 

; command 

; track 

jsector 

•data 

;dr.ive select port 

;select single density 

-.select double density 



f m. un 


equ 


f m.ds 


equ 


fm.dd 


equ 


f m . f v 


equ 


f m. ddss 


equ 


ntrk8 


equ 


ntrk5 


equ 


c . 8 i n 


equ 


C . t WO 


equ 


t imou 


equ 


dpbof s 


equ 



External Disk Parameter Tables. 



7 
4 
5 
6 
(1 shl fm.dd) or (1 shl fm.un) 

77 

40 



subtt 1 
page 



4 
5 
6 
10 



;motor / select time out 
;offset in dph for dpb address 



Floppy Disk Driver Proper 



m 



Tl 

on 



> 

X* 
rn 
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20 15 
2016 
2017 
2018 
2019 
2020 

202 1 
2022 
2023 
2024 
2025 
2026 
2027 
2028 
2029 
2030 

203 1 
2032 
2033 
2034 
2035 
2036 
2037 
2038 
2039 
2040 

204 1 
2042 
2043 
2044 
2045 
2046 

204 7 
2048 
2049 
2050 

205 1 
2052 
2053 
2054 
2055 
2056 
2057 
2058 
2059 
2060 
2061 
2062 
2063 
2064 
2065 
2066 
2067 
2068 
2069 
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Western Digital Floppy Disk Driver. 



F4B0 


CD 


F647 


F4B3 


7E 




F4B4 


23 




F4B5 


32 


F4E7 


F4B8 


3C 




F4B9 


28 


55 


F4BB 


06 


OA 


F4BD 


C5 




F4BE 


E5 




F4BF 


7E 




F4C0 


CD' 


F544 


F4C3 


FA 


F506 


F4C6 


23 




F4C7 


2 3 




F4C8 


4E 




F4C9 


CD 


F5A3 


F4CC 


4E 




F4CD 


20 


37 


F4CF 


23 




F4D0 


2 3 




F4D1 


13 




F4D2 


1A 




F4D3 


E6 


18 


F4D5 


7E 




F4D6 


20 


06 


F4D8 


79 




F4D9 


B7 




F4DA 


7E 




F40B 


28 


01 


F4DD 


3C 




F4DE 


D3 


12 


F4E0 


23 




F4E1 


23 




F4E2 


5E 




F4E3 


23 




F4E4 


56 




F4E5 


EB 




F4E6 


3E 


00 


F4E7 






F4E8 


B7 




F4E9 


OE 


A8 


F4EB 


3E 


A3 


F4ED 


28 


03 


F4EF 


OE 


88 


F4F1 


3D 




F4F2 


3 2 


F4FE 


F4F5 


3E 


00 


F4F6 






F4F7 


81 




F4F8 


4F 




F4F9 


CD 


F61D 


F4FC 


76 





Dskdvr : 


cal 1 


rdc 




Id 


a. (hi) 




inc 


hi 




Id 


( rdop) , a 




inc 


a 




jr 


2 , se 1 ec 




Id 


b, 10 


f lopl : 


push 


be 




push 


hi 




Id 


a, (hi) 




cal 1 


selunt 




JP 


ni.f 1 op5 




inc 


hi 




inc 


hi 




Id 


c.(hl) 




cal 1 


seekx 




Id 


c,(hl ) 




jr • 


112 , f 1 op5 




inc 


hi 




inc 


hi 




inc 


de 




Id 


a, (de) 




and 


I8h 




Id 


a, (hi) 




jr 


nz.f lop2 




Id 


a , c 




or 


a 




Id 


a. (hi) 




jr 


2,f lop2 




inc 


a 


f lop2: 


out 


(wdsn) , a 




inc 


hi 




inc 


hi 




Id 


e.(hl ) 




inc 


hi 




Id 


d,(hl) 




ex 


de.hl 




Id 


a.O 


rdop 


equ 


$-1 




or 


a 




Id 


c.OaBh 




Id 


a,0a3h 




jr 


2,f 1op3 




Id 


c.088h 




dec 


a 


f lop3: 


Id 


( rdwra) , 




Id 


a.O 


rdwrs 


equ 


$-1 




add 


a , c 




Id 


c ,a 




cal 1 


s tc 


f 1 op4 : 


hal t 





;un hang busy controller 
;set command 
;point to uni t 



; if select command 
;set retry count 
;save count 
;save command 
; set uni t se 1 ect 

; i f uni t not ready 



;set track low 
-.position disk 
;retrieve track low 
;if unrecoverable error 
;track high 

{point to second byte of track table entry 
{get diskette type 

{sector low 

{if single density, cp/m skews 

•,get current logical track 

set sector 

if single density track zero 

translate for double density 

set sector to read in 1791 

skip sector high 

dma 1 

set transfer address to HL 

dmah 



{set read/write switch 



{preset write command 

;set second part of OUTI 

;if write 

;turn write command into read command 

; turn OUTI into INI 

;set up i/o direction 

-,set side compare flag 



-.start transfer 
;wait for DRQ or INT 



F4FD 


eo 


A2 


F4FE 






F4FF 


20 


FB 


F501 


CD 


F639 


F504 


E6 


DF 


F506 


El 




F507 


CI 




F500 


CO 




F509 


DO 




F50A 


CD 


F069 


F50D 


10 


AE 


F50F 


C9 
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2070 
2071 

207 2 

20 7 3 
2074 
2075 
2076 
2077 
2078 
2079 
2080 

208 1 
2082 
2083 
2084 
2085 
2086 

208 7 
2088 
2089 
2090 

209 1 
209 2 
2093 
2094 
2095 
2096 
2097 
2098 
2099 
2 100 
2 101 
2102 
2 103 
2104 
2 105 
2 106 
2107 
2 108 
2 109 

21 10 
2111 
21 12 
2 113 
2 114 
2 115 
2116 
2117 
21 18 
21 19 
2 120 
2121 
2122 
2 123 
2124 
2125 
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F5 10 


7E 




F51 1 


FE 


04 


F513 


D2 


F42A 


F516 


26 


00 


F518 


CD 


F039 


F51B 


2B 




F51C 


2 2 


F559 


F51F 


2B 




F520 


22 


F66E 


F523 


26 


00 


F525 


6F 




F526 


29 




F527 


29 




F528 


29 




F529 


29 




F52A 


1 1 


F390 


F52D 


19 




F52E 


E5 




F52F 


CD 


F65A 


F532 


El 




F533 


CA 


F42A 


F536 


71 




F537 


23 




F538 


7 




F539 


01 


OOOA 


F53C 


09 




F53D 


72 




F53E 


2B 




F53F 


7 3 




F540 


ED 


42 


F542 


AF 




F543 


C9 





F544 


4F 




F545 


EB 




F546 


21 


F700 


F549 


06 


00 


F54B 


09 




F54C 


09 





ini 




rdwra equ 


^r 1 


jr 


nz , f lop4 


cal 1 


ttc 


and 


Odfh 


f I Op5 ; pop 


hi 


pop 


be 


ret 


z 


ret 


c 


call 


sof tv 


djnz 


f lopl 


ret 




; ; se 1 ect 


- select dph 


se I ec : Id 


a, (hi) 


cp 


4 


JP 


nc.sel err 


Id 


h,0 


cal 1 


dayt i 


dec 


hi 


Id 


. (mt radr ) , hi 


dec 


hi 


Id 


(stpadr) ,hl 


Id 


h,0 


Id 


I .a 


add 


hi ,h1 


add 


hi ,hl 


add 


h 1 , h 1 


add 


hi .hi 


Id 


de , Dpbase 


add 


hi ,de 


push 


hi 


cal 1 


smf 


pop 


hi 


JP 


z , se 1 err 


Id 


(hi) ,c 


inc 


hi 


Id 


(hi ).b 


Id 


bc.dpbofs 


add 


hi ,bc 


Id 


(hl),d 


dec 


hi 


Id 


(hi ) ,e 


sbc 


hi ,bc 


xor 


a 


ret 




; ; se 1 ect 


physical uni 


se 1 unt : Id 


c , a 


ex 


de.hl 


Id 


hi , trktbl+1 


Id 


b,0 


add 


hi .be 


add 


hi .be 



,- transfer next byte 

;if transfer not complete 
; terminate transfer command 
; set error bi ts 
; recover command pointer 

; i f no errors 

; i f 5 . 25" not ready 

;if retry not exceeded 



;set unit 

; i f bad uni t se 1 ect 

;set address of timers 
; point to motor timer 



;point to configurable step rate 

jstore address of step rate for media selector 



smultiply by 2**4 



;set address of disk parameter headers 
;set dph address 



-,set media format 

; i f no media 

jstore translate table 



;point to dpb addr and clear carry 
;f ill in dpb address 



; point back to dph 



;save select 

;set track / density table address 



m 
00 



> 

a> 
n 

CL 

x' 
m 
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2126 
2127 
2128 
2 129 
2130 
2 131 
2132 
2 133 
2134 
2135 
2136 
2 137 
2138 
2139 
2140 
2141 
2142 
2143 
2144 
2145 
2146 
2147 
214B 
2149 
2150 
2151 
2152 
2153 
2154 
2155 
2156 
2157 
2158 
2 159 
2 160 
2161 
2162 
2163 
2164 
2 165 
2166 
2 167 
2 168 
2 169 
2170 
2171 
2172 
2173 
2174 
2175 
2176 
2177 
2178 
2179 
2180 
2181 



F54D 


2 2 


F6D1 


F550 


EB 




F551 


1A 




F552 


IB 




F553 


CD 


F598 


F556 


3E 


06 


F558 


'32 


F559 


F559 






F55B 


FB 




F55C 


CB 


89 


F55E 


DB 


1C 


F560 


47 




F561 


E6 


F8 


F563 


B1 




F564 


3C 




F565 


D3 


1C 


F567 


A8 




F568 


£6 


03 


F56A 


28 


25 


F56C 


3E 


FF 


F56E 


12 




F56F 


CB 


60 


F571 


20 


IE 


F573 


CD 


F647 


F576 


06 


08 


F578 


E5 




F579 


2A 


F559 


F57C 


7E 




F57D 


El 




F57E 


D6 


04 


F580 


D8 




F5B1 


DB 


10 


F583 


E6 


02 


F585 


28 


F1 


F587 


3A 


F585 


F58A 


EE 


08 


F58C 


32 


F585 


F58F 


10 


E7 


F59 1 


DB 


10 


F593 


E6 


80 


F595 


C9 




F596 


3E 


18 


F598 


32 


F632 


F59B 


E6 


18 


F59D 


D3 


31 


F59F 


CO 




F5AU 


D3 


30 


F5A2 


C9 





820-11 


MACRO- 


-80 3.44 09-Dec 




Id 


(smf a) , hi 




ex 


de.hl 




Id 


a, (de) 




dec 


de 




cal 1 


se Iden 




Id 


a , 1 1rnou 




Id 


(mt radr) , a 


mtiradr 


equ 
ei 


$-2 




res 


1 ,c 




in 


a , ( wds 1 ) 




Id 


b.a 




and 


not 7 




or 


c 




inc 


a 




out 


(wds I ) , a 




xor 


b 




and 


3 




jr 


z.sel3 




Id 


a,-1 




Id 


(de) .a 




bit 


c.Bln.b 




jr 


nz , se 1 3 




cal 1 


rdc 




Id 


b,2*4 


se 1 1w ; 


push 


hi 




Id 


hi t (mtradr) 




Id 


a. (hi) 




pop 


hi 




sub 


t imou-2 




ret 


c 




in 


a , (wdsr) 




and 


2 


sel2: 


jr 


z.sel 1w 




Id 


a, (se!2) 




xor 


8 




Id 


(se!2) ,a 




d jnz 


se 1 1 w 


sel3: 


in 


a , (wdsr) 




and 


BOh 




ret 




se'l dns : 


Id 


a, 18h 


se 1 den : 


Id 


(dsw ) , a 




and 


18h 




out 


(wddd) ,a 




ret 


z 




out 


( wdsd) ,a 




ret 





-81 



seek - position disk. 



F5A3 


79 




F5A4 


B7 




F5A5 


CC 


F596 


F5A8 


13 





s e e k x : 



Id 
or 

cal 1 
inc 



a , c 

a 

z , se 1 dns 

de 



; save address for media selector 

;get previous density switch 
-.point to track word 
;select density 
jstart motor / select timer 

;address filled in by once only routine 

; insure clock enabled 

;map C->A, D->B 

; read current select 



; insert new select 

j0-1. 1-2 

; se 1 ect drive 



;if drive select identical 
-.force track position recovery 

;test 8/5 status 

;if 8" 

;set type I status 

jwatch for four holes (8 transitions.) 

;get address of motor select timer 



look for 1-2 seconds 
if drive not spinning 



if index not under light 
switch index polarity 
(jr z) xor (jr nz) 

;wait for at least three revolutions 
;set ready status 



;set track zero single density 

jstore switch for read/write routines 

;pre-select dual density 
; i f dual dens i ty 
-.select single density 



;set new track 

;force single density track 



> 

■o 

a* 

a. 
x' 
m 
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rn 



2 182 


F5A9 


1A 




2183 


F5AA 


IB 




2184 


F5AB 


E6 


01 


2185 


F5AD 


28 


15 


2186 


F5AF 


DB 


1C 


2187 


F5B1 


CB 


67 


2188 


F5B3 


06 


4D 


2189 


F5B5 


20 


02 


2190 


F5B7 


06 


28 


2191 


F5B9 


79 




2192 


F5BA 


B8 




2193 


F5BB 


3E 


00 


2194 


F5BD 


38 


05 


2195 


F5BF 


79 




2 196 


F5C0 


90 




2197 


F5C1 


4F 




2198 


F5C2 


3E 


02 


2199 


F5C4 


32 


F4F6 


2 200 


F5C7 


8 7 




2201 


F5C8 


47 




2202 


F5C9 


F3 




2203 


F5CA 


DB 


1C 


2204 


F5CC 


CB 


97 


2205 


F5CE 


BO 




2206 


F5CF 


FB 




2207 


F5D0 


D3 


1C 


2208 


F5D2 


1A 




2209 


F5D3 


D3 


1 1 


2210 


F5D5 


B9 




221 1 


F5D6 


28 


17 


2212 


F5DB 


3C 




2213 


F5D9 


CC 


F5F8 


2214 


F5DC 


28 


OD 


2215 


F5DE 


79 




2216 


F5DF 


D3 


13 


2217 


F5E1 


3E 


1C 


2218 


F5E3 


CD 


F643 


2219 


F5E6 


E6 


98 


2220 


F5E8 


79 




2221 


F5E9 


28 


02 


2222 


F5EB 


F6 


FF 


2223 


F5ED 


12 




2224 


F5EE 


C9 




2225 


F5EF 


CD 


F647 


2226 


F5F2 


E6 


20 


2227 


F5F4 


28 


E8 


2228 


F5F6 


AF 




2229 


F5F7 


C9 




2230 








2231 








2232 








2233 


F5FB 


C5 




2234 


F5F9 


CD 


F605 


2235 


F5FC 


20 


05 


2236 


F5FE 


CD 


F641 


2237 


F601 


E6 


04 



sekO: 



sek 1 



seekO ; 



seek 1 : 
seek2 : 



seek3 : 



Id 

dec 

and 

jr 

in 

bit 

Id 

jr 

Id 

Id 

cp 

Id 

jr 

Id 

sub 

Id 

Id 

Id 

add 

Id 

di 

in 

res 

or 

ei 

out 

Id 

out 

cp 

jr 

inc 

cal 1 

jr 

Id 

out 

Id 

cal 1 

and 

Id 

jr 

or 

Id 

ret 

cal 1 

and 

jr 

xor 

ret 

rse - 

push 
cal 1 
jr 

cal 1 
and 



a,(de) 

de 

1 

z , sek 1 

a, (wds 1 ) 

c .Bin. a 

b.ntrkB 

nz , sekO 

b,ntrk5 

a, c 

b 

a.O 

c , sek 1 

a , c 

b 

c , a 

a. 2 

( rdwrs) , a 

a, a 

b.a 

a , (wds 1 ) 

2. a 

b 

(wds I ) ,a 

a, (de) 

(wdtr) ,a 

c 

z , seek3 

a 

z , rse 

z , seek 1 

a , c 

(wddt) ,a 

a, Ich 

isc 

98h 

a , c 

z , seek2 

(de) ,a 

rdc 

20h 

z , seekO 

a 



;if one sided diskette 



;set number of eight Inch tracks 
; i f 8" drives 

;set seek track 

jpreset side 
; if side 

;wrap to side 1* 

;set side 1 

;store FV (update SSO) 

;niove into select port position 



send out REAL SSO 
check current position 
inform 1797 of current track 

if position ok, load head 

check for forced recovery 

recover seek errors 

if error not recoverable 

set new track 

in data register 

set seek with verify command 

issue step command 

update current track 

if no errors 

force recovery next time 



;set type I status 
; test head 1 oad 
;if head is not loaded 
;say seek complete 



recover seek error. 

be 

rdid 
nz , rse 1 
recai 
4 



;read id mark 

;if track position identified 

; reca 1 ibrate 

jverify track zero flag set 
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rsel .- 



rdid: 



MACRO-BO 3.44 



09-Dec-61 



2238 


F603 


CI 




2239 


F604 


C9 




2240 








2241 








2242 








2243 


F605 


OE 


C4 


2244 


F607 


CD 


F61D 


2245 


F60A 


76 




2246 


F60B 


ED 


40 


2247 


F60D 


76 




2248 


F60E 


ED 


48 


2249 


F610 


CD 


F639 


2250 


F613 


E6 


98 


2251 


F615 


20 


04 


2252 


F617 


78 




2253 


F618 


03 


1 1 


2254 


F61A 


F6 




2255 


F61B 


AF 




2256 


F61C 


C9 




2257 








2258 • 








2259 








2260 


F61D 


F3 




2261 


F61E 


3 A. 


0066 


2262 


F62 1 


32 


F63A 


2263 


F624 


3E 


C9 


2264 


F626 


32 


0066 


2265 


F629 


79 




2266 


F62A 


01 


1413 


2267 


F62D 


D3 


10 


2 268 


F62F 


10 


FE 


2269 


F631 


3E 


00 


2270 


F632 






2271 


F633 


E6 


18 


2272 


F635 


C8 




2273 


F636 


06 


80 


2274 


F638 


C9 




2275 








2276 








2277 








2278 


F639 


JE 


00 


2279 


F63A 






2280 


F63B 


3 2 


0066 


2281 


F63E 


FB 




2282 


F63F 


18 


OA 


2283 








2284 








2285 








2286 


F641 


AF 




2287 


F642 


1 2 




2288 








2289 








2290 








2291 


F643 


F6 


01 


2292 


F644 






2293 


F645 


18 


02 



rdidl ; 



StC : 



dsw 



pop 
ret 

rdid 



be 



read id mark. 



Id 


c.0c4h 


cal 1 


stc 


ha» t 




in 


b,(c) 


halt 




in 


c . ( c ) 


cal 1 


ttc 


and 


98h 


jr 


nz , rdidl 


Id 


a,b 


out 


( wdt r ) , a 


defb 


0f6h 


xor 


a 


ret 





;set Read Address Command 
;start transfer command 
;wait for interrupt 
;first byte is track 

jsecond byte is side, pitch next 4 

; terminate transfer command 

; ignore 1 ost data 

;if track not identified 

;tell 1797 track head is on now 
;or xra to set NZ 
;set track not found 



start transfer command. 



di 




Id 


a, (NMI) 


Id 


(ttca) ,a 


Id 


a,0c9h 


Id 


(NMI) ,a 


Id 


a , c 


Id 


be ,wddt + 20*256 


out 


(wdcr) ,a 


djnz 


$ 


Id 


a.O 


equ 


$-1 


and 


I8h 


ret 


z 


Id 


b, 128 


ret 





;lock normal interrupts 
;save byte at NMI address 

;store RET there 

; retrieve command 

; 1797 access timer / data port 

; i ssue command 

; pause 60 usee 

; dens i t y sw i tch 

;say ready and density 

;if double density 

;set 12B byte single density sectors 



ttc; 


Id 




a,0 


ttca 


equ 




$-1 




Id 




(NMI ) ,a 




ei 








jr 




woe 


; ; 


reca 


1 ibi 


~ate drive 


reca I : 


xor 




a 




Id 




(de) , a 



terminate transfer command. 

,-restore location 66 



;take interrupts now 

;wait for 1797 to complete 



;set restore command / track 
;set track zero 

;; isc - issue step command. 

isc: or 1 jinsert step rate 

stepr equ $-1 ;*****=> ;modi fy here for step rate change 
jr ice 
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2294 F647 3E DO rdc : Id a , OcJOh {terminate and set type I status 

2295 



2296 ;; ice - issue controller command. 

2297 ; 

m 2298 F649 D3 10 ice: out (wdcr).a ; issue 1797 command 
2299 

2300 ;; woe - wait operation complete. 

2301 ; 

2302 F64B 3E 14 woe : Id a , 20 ;set 60 usee delay 

2303 F64D 3D wocl: dec a 

2304 F64E 20 FD jr nz.wocl 

2305 F650 CD F066 woc2: call idle ;idle cpu 

2306 F653 DB 10 in a.(wdsr) ;set 1797 status 

2307 F655 CB 47 bit . 0,a 

2308 F657 20 F7 jr nz,woc2 ;if busy, wait 

2309 F659 C9 ret 
2310 

2311 subttl Media Format Selector 

2312 page 



m 



m 



> 
n> 

Q- 
X* 

m 



F65A 


CD 


F544 


F65D 


FA 


F5F6 


F66Q 


2 1 


F6D5 


F663 


36 


AO 


F665 


DB 


1C 


F667 


CB 


67 


F669 


20 


02 


F66B; 


CB 


F6 


F66D 


3A 


F66E 


F66E 






F670 


E6 


03 


F672 


32 


F644 


F675 


CD 


F641 


F678 


E6 


84 


F67A 


ca 




F67B 


FA 


F5F6 


F67E 


03 


3 1 


F6B0 


3E 


FF 


F682 


12 




F683 


3E 


02 


F685 


03 


13 


F687 


3E 


18 


F609 


CD 


F643 


F68C 


3E 


1C 


F68E 


D3 


10 


F690 


01 


0000 


F693 


10 


FE 


F695 


DB 


10 


F697 


CB 


47 


F699 


28 


08 


F69B 


00 




F69C 


20 


F5 


F69E 


CD 


F647 


F6A1 


3E 


18 


F6A3 


E6 


18 


F6A5 


13 




F6A6 


12 




F6A7 


IB 




F6A8 


28 


14 


F6AA 


03 


30 


F6AC 


3E 


1C 


F6AE 


CD 


F643 


F6Bt 


E6 


18 


F6B3 


28 


07 


F6B5 


CB 


7E 


F6B7 


CB 


BE 



Balcones Opera tiny System for the XEROX 820-11 
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2313 

2314 

2315 

2316 

2317 

2318 

23 19 

2320 

2321 

2322 F65A CD F544 smf : 

2323 

2324 

2325 

2326 

2327 

2328 

2329 

2330 F66D 3A F66E smfO: 

2331 F66E stpadr 
2332 
2333 

2334 F675 CD F641 smfOa: 

2335 
2336 
2337 
2338 
2339 
2340 
2341 
2342 
2343 
2344 
2345 , 
2346 
2347 

2348 F693 10 FE smf 1 

2349 
2350 
2351 
2352 
2353 
2354 
2355 

2356 F6A3 E6 18 smf la: 

2357 
2358 
2359 
2360 
2361 
2362 
2363 
2364 
2365 
2366 
2367 
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smf - set media format. 



entry : 
exit: 

cal I 

JP 

Id 

Id 

in 

bit 

jr 

set 

Id 

equ 

and 

Id 

cal 1 

and 

ret 

JP 

out 

Id 

Id 

Id 

out 

Id 

cal 1 

Id 

out 

Id 

djnz 

in 

bit 

jr 

dec 

jr 

cal 1 

Id 

and 

inc 

Id 

dec 

jr 

out 

Id 

cal 1 

and 

jr 

bit 

res 



unit in A 

DE = dpb address 

BC = translate table 



se 1 unt 

m.retzr 

hi .dtype 

(hi ) .fm.ddss 

a , ( wds 1 ) 

c.Bin.a 

nz , smf 

fm.fv, (hi ) 

a , (stpadr) 

$-2 

3 

(stepr) , a 

recal 

84h 

z 

in, ret zr 

(wddd) ,a 

a. -I 

(de) ,a 

a, 2 

(wddt ) ,a 

a, 18h 

i sc 

a, Ich 

( wdcr) , a 

be .0 

$ 

a , (wdsr) 

O.a 

z , smf 1 a 

c 

nz , smf 1 

rdc 

a.18h 

I8h 

de 

(de) ,a 

de 

z.smf 2 

(wdsd) , a 

a, Ich 

isc 

18h 

z , smf lb 

fm.un, (hi ) 

fm.un, (hi ) 



jselect unit 

; i f disk not ready 

;start out double density, single side, retry 

; read select status 

; test 8" / 5" status 

; i f 8 inch drives 

; move up to 5.25" dpbs 

;set configurable step rate for 8" drives 

;just so seeks aren't formats 
;save step rate in seek command 
.jestablish position 

;if not on track zero 
; i f uni t not ready 
;set double density 

jelear drive on track 

;use track 2 for density select 

;seek / no verify 
; issue seek command 
; f ind id mark 
; start verify 
;set timers 
;pause 



;if command completed 

; i f more t ime 

; terminate seek 

;set pseudo record not found 

-.check record not found / crc error 

;point to density word in track table 



;if density select successful 
;use single density 
jverify single density 
; issue seek 

;if single density successful 
;test retry 
-.clear retry 



> 

X3 

3 

a. 
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2368 
2369 
2370 
2371 
2372 
2373 
2374 
2375 
2376 
2377 
2370 
2379 
2360 
23B1 
2382 
2383 
2384 
2385 
2386 
2387 
2388 
2389 
2390 
2391 
239 2 
2393 
2394 
2395 
2396 
2397 
2398 
2399 
2400 
2401 
2402 
2403 
2404 
2405 
2406 
2407 
2408 
2409 
24 10 
24 1 1 
24 12 
24 13 
2414 
2415 
24 16 
24 17 
24 18 
2419 
2420 
242 1 
2422 
2423 
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F6B9 


20 


BA 


F6BB 


C9 




F6BC 


CB 


AE 


F6BE 


CB 


BE 


F6C0 


OB 


1C 


F6C2 


CB 


D7 


F6C4 


D3 


1C 


F6C6 


CD 


F605 


F6C9 


28 


09 


F6CB 


OD 




F6CC 


20 


06 


F6CE 


CB 


E6 


F6D0 


2 1 


F6D1 


F6D1 






F6D3 


34 




F6D4 


21 


0000 


F6D5 






F6D7 


7D 




F6D8 


4C 




F6D9 


44 




F6DA 


1 1 


F430 


F6DD 


19 




F6DE 


EB 




F6DF 


CB 


6F 


F6E1 


CO 




F6E2 


01 


F6ED 


F6E5 


CB 


77 


F6E7 


CO 




F6E8 


01 


F410 


F6EB 


3C 




F6EC 


C9 





F6E0 


01 


06 


OB 


10 


F6F1 


03 


08 


OD 


12 


F6F5 


05 


OA 


OF 


02 


F6F9 


7 


OC 


1 1 


04 


F6FD 


09 


OE 






F6FF 


. 7F 


00 


CO 


00 


F703 


20 


00 


02 


00 


F707 


81 








F708 










F770 











0708* 



F470 



smf lb : 
smf 2: 



smf a 

smf 4 : 
dtype 



ret 

res 

res 

in 

set 

out 

cal 1 

jr 

dec 

jr 

set 

Id 

equ 

inc 

Id 

equ 

Id 

Id 

Id 

Id 

add 

ex 

bit 

ret 

Id 

bit 

ret • 

Id 

inc 

ret 



nz , smf Oa 

fin.dd, (hi ) 

fm.un, (hi ) 

a , (wds 1 ) 

2, a 

(wds l),a 

rdid 

z , smf 4 

c 

nz , smf 4 

fm.ds, (hi ) 

hi , smf a 

$-2 

(hi) 

hi ,0 

$-2 

a. 1 

c.h 

b.h 

de ,dpb8s 

hi ,de 

de.hl 

f m. dd, a 

nz 

be , trn5 

f m. f v , a 

nz 

be , t rn6 

a 



; i f retrv 

jreturn select error 

;back up to single density dpbs 

jelear retry 

jselect side 2 

;"read id mark 

;if no id found, must be one side 

;if side 1 ID not read 

;bump up to two sided dpbs 

;set double sided status in track table 



;set diskette type 

;save type 

{preset no translate 

;set base of disk parameter blocks 

; return DPB address in DE 

;if diskette is double density 
;preset 5.25" skew table 

;if diskette is small 
;set 8" translate 
.•force NZ 



Skew by 5 translate table. 



trn5: 


db 


01 ,06, 


,.1 1 , 16 




db 


03,08, 


, 13, 18 




db 


05. 10, 


, 15.02 




db 


07, 12, 


, 17.04 




db 


09, 14 




trktbl : 


db 


7fh,0, 


,0c0h,i 



r igdpb 


equ 0f708h 


i o b 1 o c 


equ Qf770h 




above 




d&seg 




. dephase 




.phase 0f470h 


sasst r 


equ $ 



Subttl Rigid Partition Disk Parameter Blocks, 
page 



in 
en 



> 

3 
O. 
X* 

m 



0040 
0020 
00 10 
0010 

0000 
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2424 
2425 
2426 
24 2 7 
2428 
2429 
2430 
2431 
2432 
2433 
2434 
2435 
2436 
2437 
2438 
2439 
2440 
2441 
2442 
2443 
2444 
2445 
2446 
2447 
2448 
2449 
2450 
2451 
2452 
2453 
2454 
2455 
2456 
2457 
2458 
2459 
2460 
2461 
2462 
2463 
2464 
2465 
2466 
2467 
2468 
2469 
2470 
2471 
2472 
2473 
2474 
2475 
2476 
2477 
2478 
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F470 


200 


F472 


05 IF 


F474 


01 


F475 


03EF 


F477 


01FF 


F479 


FF 


F47A 


00 


F47B 


0000 


F47D 


000 1 


F47F 


01 


F480 


0200 


F482 


05 IF 


F484 


01 


F485 


01EF 


F487 


1FF 


F489 


FF 


F48A 


00 


F48B 


0000 


F48D 


004 1 


F48F 


01 


F490 


200 


F492 


05 IF 


F494 


03 


F495 


OOEF 


F497 


01FF 


F499 


FF 


F49A 


00 


F490 


0000 


F49D 


0061 







« here 
Track 


are lb 4k blocks per pseudo track. 

Zero (2 Cylinders) are reserved for CP/M boot. 




Nt4 


equ 


64 




-.Number of Tracks on Partition 




Nt5 


equ 


32 




; Number of Tracks on Partition 1 




Nt6 


equ 


16 




jNumber of Tracks on Partition 2 




Nt7 


equ 


16 




;Number of Tracks on Partition 3 






aset 







;First usable track 






i rpc 


n,<4567> 










aset 


. . + 1 




jreserve system track 


, 


Dsm&n 


equ 


Nt&n*16-17 








Rtk&n 


equ 
aset 


. .+Nt&n-1 








Dpbrg&n 


: dw 


512 




; Spt 






db 


5.31 




;blkshf, blkmsk 






db 


3+2*(Dsm&n 


9e 


256) ;exm 






dw 


Dsm&n 




; dsm 






dw 


511 




; d i rma x 






db 


-1 




;alloc0 (reserve additional dir space) 






db 







; a 1 loci 






dw 







;check size 






dw 


Rtk&n 




jtrack offset 






db 


1 




; 256 byte sectors 






endm 








+ 


Dpbrg&4 


: dw 


512 




; spt 


+ 




db 


5,31 




jblkshf, blkmsk 


+ 




db 


3+2*(Dsm8.4 


ge 


256) ; exm 


+ 




dw 


Dsm8.4 




; dsm 


+ 




dw 


51 1 




; di rmax 


+ 




db 


-1 




;alloc0 (reserve additional dir space) 


+ 




db 







;al loci 


+ 




dw 







;check size 


+ 




dw 


Rtk&4 




jtrack offset 


+ 




db 


1 




; 256 byte sectors 


+ 


Dpbrg&5 


:dw 


512 




; spt 


+ 




db 


5,31 




jblkshf, blkmsk 


+ 




db 


3+2*(Dsm&5 


Qe 


256) ;exm 


+ 




dw 


Dsmfi.5 




; dsm 


+ 




dw 


51 1 




;di rmax 


+ 




db 


-1 




;alloc0 (reserve additional dir space) 


+ 




db 







; a 1 loci 


+ 




dw 







; check size 


+ 


1 


dw 


Rtk8.5 




;track offset 


+ 




db 


/ 1 




;256 byte sectors 


•* 


Dpbrg&6 


: dw 


512 




; spt 


+ 




db 


5,31 




;blkshf, blkmsk 


+ 




db 


3 + 2*(Dsm8,6 


9e 


256) ;exm 


+ 




dw 


Dsm&6 




;dsm 


+ 




dw 


51 1 




;di rmax 


+ 




db 


-1 




;alloc0 (reserve additional dir space) 


+ 




db 







; a 1 loci 


+ 




dw 







;check size 


-*- 




dw 


Rtk&6 




; t rack offset 



> 

a 
a 

D 

3 
Q_ 

X* 

m 



Balco 
R i U i d 

2479 
2480 
2481 
2482 
2483 
2484 
2485 
2486 
2487 
2488 
2489 
2490 
249 1 
2492 
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F49F 


01 


F4A0 


200 


F4A2 


05 IF 


F4A4 


03 


F4A5 


00EF 


F4A7 


01FF 


F4A9 


FF 


F4AA 


00 


F4AB 


0000 


F4AD 


007 1 


F4AF 


1 



db 
Dpbrg&7 :dw 
db 
db 
dw 
dw 
db 
db 
dw 
dw 
db 



256 byte sectors 

spt 

blkshf, blkmsk 



subtt I 
page 



1 

512 

5,31 

3+2*(Dsm&7 ge 256);exm 

Dsm&7 ;dsm 

511 ;di rmax 

-1 ;alloc0 (reserve additional dir space) 

; alloc1 

jcheck size 
Rtk&7 ;track offset 

1 ; 256 byte sectors 

SA1403 - Shugart / DTC SASI Driver 



U1 
(Jl 



Ba 1 cones 


Opera 


SA1403 - 


Shuya 


2493 




2494 




2495 




2496 




2497 


EEOO 


2498 




2499 




2500 




2501 


00 1 1 


2502 


0010 


2503 


0013 


2504 


0012 


2505 




2506 


00 10 


2507 


0012 


2508 


0012 


2509 




2510 


00 1C 


251 1 




25 12 




2513 




2514 


0000 


2515 


000 1 


2516 


0002 


2517 


0003 


2518 


0004 


2519 


0005 


2520 


0006 


252 1 


0007 


2522 




2523 




2524 




2525 


0000 


2526 


0001 


2527 


0000 


2528 


0002 


2529 


0003 


2530 




2531 




2532 
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SA-14Q3D SASI driver, 
rgdbuf equ OeeOOh ;rigid parameter load buffer 

;; Sasi Pio Port Addresses. 

; Pi o A Status 



;bus data 
;bus control 
;bus status 



;system configuration port 
Sasi controller .status bit definitions. 



pi oAs 


equ 


1 1h 






pioAd 


equ 


pioAs 


xor 


01b 


pioBs 


equ 


pioAs 


xor 


10b 


pi oBd 


equ 


pioAs 


xor 


1 lb 


Sas id 


equ 


pioAd 






Sas ic 


equ 


pioBd 






Sas i s 


equ 


pioBd 






syspio 


equ 


Ich 







b 


bsy 


equ 


00 


b 


msg 


equ 


01 


b 


cd 


equ 


02 


b 


req 


equ 


03 


b 


i o 


equ 


04 


b 


se 1 


equ 


05 


b 


par 


equ 


06 


b 


rst 


equ 


07 



(in) controller busy status 

(in) status byte completion status 

(in) control byte or data byte transfer 

(in) controller request for data/command 

(in) data transfer direction 

(out) controller select 

(in) buss parity error 

(out) controller reset 



Logical Unit Assignments. 



fa lun 


equ 





fblun 


equ 


1 


f c 1 un 


equ 





fdlun 


equ 


2 


rg 1 un 


equ 

subtt 1 
page 


3 
S 



A 


Lun 


B 


Lun 


C 


Lun 


D 


Lun 


E 


Lun 



Sasi Class Code Definitions 
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2533 




2534 




2535 




2536 




2537 




2538 




2539 




2540 


0000 


2541 


0001 


2542 


0002 


2543 


0003 


2544 


0004 


2545 


0005 


2546 


0006 


2547 


0007 


2548 


0008 


2549 


0009 


2550 


000A 


2551 


000B 


2552 


OOOC 


2553 




2554 




2555 




2556 


OOCO 


2557 




2558 




2559 




2560 


0000 


2561 


0001 


2562 


0002 


2563 


0003 


2564 




2565 


0000 


2566 


0001 


2567 


0006 


2568 


0007 


2569 


0080 


2570 




2571 




2572 




2573 


OOEO 


2574 




2575 




2576 




2577 




2578 




2579 




2580 




2581 




2582 




2583 




2584 




2585 




2586 




2587 





Class Command Codes for Prom Set AS31* 

DTC Reference Manual Dated February 4, 1981. 

class commands. 



test ready status 

recalibrate drive 

request syndrome 

request sense after error 

format drive 

verify track format 

format single track 

format track with flaw 

read data 

write protect sector 

write data 

initiate seek . 

ini t i t ial i ze drive 



c 


. trdy 


equ 


OOh 


c 


recal 


equ 


Olh 


c 


rsyn 


equ 


02h 


c 


rqsn 


equ 


03h 


c 


f ma t 


equ 


04h 


c 


vtrk 


equ 


05h 


c 


f trk 


equ 


06h 


c 


flaw 


equ 


07h 


c 


read 


equ 


08h 


c 


. wrpr 


equ 


09h 


c 


wri t 


equ 


Oah 


c 


seek 


equ 


Obh 


c 


init 


equ 


Och 



Class 6 commands. 



c . f 1 py equ 



OcOh 



Floppy Format Codes. 



finds 


equ 





fmdd 


equ 


1 


fm.sz 


equ 


2 


fm.wr 


equ 


3 


fin. sdss 


equ 


OOh 


fin. sdds 


equ 


Olh 


f mddss 


equ 


06h 


f m.ddds 


equ 


07h 


f in. hard 


equ 


80h 



;; Class 7 commands. 

c . tram equ OeOh 

;; Message Macros. 

pmsg macro n.msg 
if 1 

.printx +MSG N+ 
endi f 
endm 

phex macro n,m 

. radi x 1 6 

pmsg %(n) , <m> 

. radi x 10 
endm 



;define floppy disk format 



double side bit 
double density bit 
sector size bit 
log2(fm.ddds+1) 

Single Density, Single Sided 

Single Density, Double Sided 

Double Density, Single Sided 

Double Density, Double Sided 
Rigid 



; test ram buffer 
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y Sasi Class Code Definitions 
00 

25B8 

2589 subttl Sasi Physical Driver. 

2590 page 



> 

0> 

a. 
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2591 
2592 
2593 
2594 
2595 
2596 
2597 
2598 
2599 
2600 
2601 
2602 
2603 
2604 
2605 
2606 
2607 
2608 
2609 
2610 

261 1 
2612 
2613 
2614 
2615 
26 16 
2617 
2618 
2619 
2620 

262 1 
2622 
2623 
2624 
2625 
2626 
2627 
2628 
2629 
2630 
2631 
2632 
2633 
2634 
2635 
2636 
2637 
2638 
2639 
2640 
264 1 
2642 
2643 
2644 
2645 



F4B0 


06 


06 


F4B2 


7E 




F4B3 


23 




F4B4 


3C 




F4B5 


28 


49 


F4B7 


E5 




F4B8 


C5 




F4B9 


3D 




F4BA 


3E 


OA 


F4BC 


28 


02 


F4BE 


3E 


08 


F4C0 


32 


F6F0 


F4C3 


7E 




F4C4 


E5 




F4C5 


CD 


F5AF 


F4C8 


El 




F4C9 


23 




F4CA 


23 




F4CB 


56 




F4CC 


23 




F4CD 


23 




F4CE 


5E 




F4CF 


CD 


F6D7 


F4D2 


20 


22 


F4D4 


E5 




F4D5 


CD 


F5C2 


F4D8 


21 


F6F0 


F4DB 


CD 


F643 


F4DE 


El 




F4DF 


23 




F4E0 


23 




F4E1 


5E 




F4E2 


23 




F4E3 


56 




F4E4 


EB 




F4E5. 


06 


00 


F4E6 






F4E7 


3 A 


F6F0 


F4EA 


FE 


OA 


F4EC 


28 


05 


F4EE 


CD 


F65F 


F4F1 


18 


03 


F4F3 


CD 


F656 


F4F6 


C 1 




F4F7 


El 




F4F8 


2B 




F4F9 


ca 




F4FA 


CD 


F069 


F4FD 


10 


B3 


F4FF 


C9 





» • 


Sa1403 


- Sasi Phys 


Sa1403: 


Id 


b,6 


sasOa : 


Id 


a, (hi) 




inc 


hi 




inc 


a 




jr 


z , sse I ec 




push 


h» 




push 


be 




dec 


a 




Id 


a.c.writ 




jr 


z , sasO 




Id 


a , c . read 


sasO : 


Id 


(opcode) , a 




Id 


a, (hi) 




push 


hi 




cal 1 


ml u 




pop 


hi 




inc 


hi 




inc 


/ hi 




Id 


d, ( h 1 ) 




inc 


hi 




inc 


hi 




Id 


e. (hi) 




cal 1 


CWp 




jr 


nz , sas 2 




push 


hi 




cal 1 


mpa 




Id 


hi , opcode 




cal 1 


ices 




pop 


hi 




inc 


hi 




inc 


hi 




Id 


e.(hl) 




inc 


hi 




Id 


d,(hl) 




ex 


de.hl 




Id 


b.O 


sec I en 


equ 


$-1 




Id 


a , (opcode ) 




cp 


c.writ 




jr 


z , sas 1 




cal 1 


tdi 




jr 


sas2 


sas 1 : 


cal 1 


tdo 


sas2 : 


pop 


be 




pop 


hi 




dec 


hi 




ret 


z 




cal 1 


softv 




djnz 


sasOa 




ret 





jset retry count 

;set driver operation 

; point to uni t 

; if select DPH 



ipreset write opcode 

; assume read 
;set Sasi opcode 
;get driver unit 

;map to logical unit 

; ignore cpm dsk 
; t rack 1 ow 
:set track 



;set sector 

;check write protect 

;if write protected and track > 

;save request block address 

;map physical address to logical address 

; issue controller command 
;get pointer to low sector back 
; ignore sector high 
;dma low 

;dma high 

;set transfer address to HL 
;set sector length 



; i f write command 
; transfer data in 

;transfer data out 



; i f no errors 
jreport soft error 
; i f mors retries 
;retum error 
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2646 subttl Physical Driv/er Select 

2647 page 



> 

T3 
rt> 

3 

a. 
x' 
m 



F500 


7E 




F501 


FE 


08 


F502 






F503 


3F 




F504 


D4 


F50E 


F507 


DO 





F508 


2 1 0000 


F50B 


F6 FF 


F50D 


C9 



F50E 


CD 


F6F6 


F51 1 


CD 


F5AF 


F514 


EB 




F515 


7D 




F516 


29 




F517 


29 




F518 


29 




F519 


29 




F51A 


1 1 


F390 


F51D 


19 




F51E 


FE 


04 


F520 


DO 




F521 


E5 




F522 


3E 


80 


F524 


32 


F6F5 


F527 


32 


F5F1 


F52A 


OA 




F52B 


F6 


01 


F52D 


2 




F52E 


3E 


07 


F530 


32 


F53D 


F533 


C5 




F534 


CD 


F57A 


F537 


CI 




F538 


60 




F539 


69 




F53A 


28 


14 


F53C 


3E 


00 


F53D 






F53E 


D6 


01 


F540 


38 


31 


F542 • 


35 




F543 


F2 


F548 


F546 


36 


07 



smf s : 
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2648 
2649 
2650 
265 1 
2652 
2653 
2654 
2655 
2656 
2657 
2658 
2659 
2660 
2661 
2662 
2663 
2664 
2665 
2666 
2667 
2668 
2669 
2670 
2671 
2672 
2673 
2674 
2675 
2676 
26 7 7 
2678 
2679 
2680 

268 1 
2682 
2683 
2684 
2685 
2686 
2687 
2688 
2689 
2690 

269 1 
2692 
2693 
2694 
2695 
2696 
2697 
2698 
2699 
2700 
2701 
2702 
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J J 


Se 1 ec t 


- Physic 


sselec; 


Id 


a. (hi) 




cp 


8 


numunt 


equ 
ccf 


$-1 




cal 1 


nc , smf s 




ret 


nc 


; ; 


sel err 


- Select 


xse 1 err 


: Id 


hi ,0 


selerl: 


or 
ret 


-1 



tsat physical unit 
;verify in range 



;set media format 
;if media identified 



;Select Error Driver 



smf s 1 ; 



smf sa 



smf s 



Set Media Format. 



entry ; 


A = Driver u 


Exit : 


HL = DPH add 


cal 1 


first 


cal 1 


mlu 


ex 


de.hl 


Id 


a, I 


add 


h 1 , h I 


add 


hi ,hl 


add 


hi ,hl 


add 


hi ,hl 


Id 


de , Dpbase 


add 


hi ,de 


cp 


4 


ret 


nc 


push 


hi 


Id 


a,80h 


Id 


(dctrl ) ,a 


Id 


( lastfm+l ) ,a 


Id 


a, (be) 


or 


1 shl finds 


Id 


(be) ,a 


Id 


a, 8-1 


Id 


(smf sa) , a 


push 


be 


cal 1 


edd 


pop 


be 


Id 


h,b 


Id 


I ,c 


jr 


z , smf s2 


Id 


a.O 


equ 


$-1 


sub 


1 


jr 


c , smf s4 


dec 


(hi) 


JP 


p , smf s la 


Id 


(hi ) , f m.ddds 



; execute f i rst time only routine 

;map to logical unit 

;get dph index to hi 

; and A 

i index * 16 



;set base of Disk Parameter Headers 



; i f rigid uni t 
;save dph address 
;disable error recovery 



jalways try double side first 

try each type two times 

set retry count 

save define format table address 

check drive density 

;set format table address 

;if diskette type identified 

^diskette type retry counter 

;if media not identified 
jadvance disk type code 
; i f no wrap 



m 
en 



> 
XI 

n> 

Q. 

x* 
m 
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2703 
2704 
2705 
2706 
2707 
2708 
2709 
27 10 
271 1 
2712 
2713 
2714 
2715 
27 16 
2717 
2718 
2719 
2720 
2721 
2722 
2723 
2724 
2725 
2726 
2727 
2728 
2729 
2730 
2731 
2732 
2733 
2734 
2735 
2736 
2737 
2738 
2739 
2740 
2741 
2742 
2743 
2744 
2745 
2746 
2747 
2748 
2749 
2750 
2751 
2752 
2753 
2754 
2755 
2756 
2757 
2758 



F548 


CB 


4E 


F54A 


20 


E4 


F54C 


CB 


96 


F54E 


18 


EO 


F550 


57 




F551 


5A 




F552 


CB 


4E 


F554 


20 


03 


F556 


1 1 


F410 


F559 


El 




F55A 


E5 




F55B 


73 




F55C 


23 




F55D 


72 




F55E 


1 1 


0009 


F561 


19 




F562 


OA 




F563 


E6 


03 


F565 


EB 




F566 


6F 




F567 


29 




F568 


29 




F569 


29 




F56A 


29 




F56B 


01 


F430 


F56E 


09 




F56F 


EB 




F570 


73 




F571 


23 




F572 


72 




F573 


El 




F574 


3E 


00 


F576 


32 


F6F5 


F579 


C9 





F57A 


OA 




F57B 


E6 


01 


F57D 


1 1 


0201 


F580 


28 


02 


F582 


16 


4F 


F584 


CD 


F5C2 


F5C7 


2 1 


F6F0 


F58A 


36 


08 


F58C 


CD 


F643 


F58F 


CD 


F6CE 


F592 


CD 


F687 


F595 


20 


04 


F597 


ED 


78" 


F599 


10 


F7 


F59B 


CD 


F669 


F59E 


C9 





820-11 


MACRO- 


•80 3.44 09-Dec- 


-8 


sinfs 1 a : 


bit 


fmdd, (hi ) 






jr 


nz , smf s 1 






res 


fm.sz, (hi ) 






jr 


smf s 1 




smf s2 : 


Id 


d,a 






Id 


e.d 






bit 


fmdd, (hi ) 






jr 


nz.smfs3 






Id 


de , t rn6 




smf s3: 


pop 


hi 






push 


hi 






Id 


(hl),e 






inc 


hi 






Id 


(hl),d 






Id 


de, 10-1 






add 


hi .de 






Id 


a. (be) 






and 


3 






ex 


de , h I 






Id 


1 .a 






add 


hi. hi i 






add 


hi .hi 






add 


hi .hi 






add 


hi .hi 






Id 


bc-.dpbBs 






add 


hi ,bc 






ex 


de.hl 






Id 


(hl).e 






inc 


hi 






Id 


'(hl).d 




smf s4 : 


pop 


hi 






Id 


a.O 






Id 


(dctrl).a 






ret 







edd: 



cddO: 



cddl ; 



Cdd2: 



itest for double density 
;if double density 
;set sector size = 128 
;try more diskette types 
ipreset no translate 



;if diskette is double density 
;set single density translate 
;get dph address 

;store translate address 



;point to dpb address in dph 
;get selected format 



; index by 16 



;set dpb base 

;set dpb address (clears carry) 

; recover dpb pointer address in dph 



;get dph address 
-.enable error recovery 



edd - check drive density. 



Id 


a, (be) 


and 


1 


Id 


de. 2*256+1 


jr 


. z.cddO 


Id 


d.77+2 


cal 1 


mpa 


Id 


hi , opcode 


Id 


(hi ) . c . read 


cal 1 


ices 


cal 1 


sim 


cal 1 


wfr 


jr 


nz ,cdd2 


in 


a.(c) 


jr 


cddl 


cal 1 


wee 


ret 





;get attempted side 

;try side* 1 on ds , on ss* 

; i f s ing 1 e s ide 

;use back side 

; map physical address 



; issue controller command 

;set input mode 

; wait for req 

;if timeout or status, not data requested 

;eat sector 

;wait command complete 



p21 - Physical to Logical Mapping Table. 
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2759 
2760 
2761 
2762 
2763 
2764 
2765 
2766 
2767 

27 60 
2769 
2770 
2771 
2772 
2773 
2774 
2775 
2776 
2777 
2778 
2779 
2780 
2781 
2782 
2783 
2704 
2785 
2786 
2787 
2788 
2789 
2790 
2791 
2792 
2793 
2794 
2795 
2796 
2797 
2798 
2799 
2800 
2801 
2802 
2803 
2804 
2805 
2806 
280 7 
2808 
2809 

28 10 
20 1 1 
2812 
2813 
2814 



F59F 


00 


00 


F5A1 


20 


01 


F5A3 


00 


06 


F5A5 


40 


07 


F5A7 


60 


80 


F5A9 


60 


.80 


F5AB 


60 


80 


F5AD 


60 


80 



F5AF 


2 1 


F59F 


F5B2 


16 


00 


F5B4 


5F 




F5B5 


19 




F5B6 


19 




F5B7 


7E 




F5B8 


32 


F6F1 


F5BB 


32 


F6EB 


F5BE 


23 




F5BF 


44 




F5C0 


40 




F5C1 


C9 





F5C2 


2 1 


F4E6 


F5C5 


36 


00 


F5C7 


EB 




F5C8 


OA 




F5C9 


FE 


80 


F5CB 


20 


46 


F5CD 


FE 


06 


F5CF 


38 


06 


F5D1 


2C 




F5D2 


7C 




F5D3 


B7 




F5D4 


20 


04 


F5D6 


20 




F5D7 


3E 


80 



P 21; 



ml u : 



mpa : 



First byte is the SA1403 Logical Unit Number 
Second byte is extended drive format code 



db 
db 
db 
db 
db 
db 
db 
db 

Mlu 



falun shl 
fblun shl 
falun shl 
fdlun shl 
rglun shl 
rglun shl 
rglun shl 
rglun shl 



5 , f m. sdss 
5 , fin. sdds 
5 , f mddss 
5 , f in.ddds 
5 , f m.hard 
5 , f m.hard 
5 , f m. hard 
5, fm.hard 



Floppy Drive 
Floppy Drive 1 
F I oppy Drive 
Floppy Drive 2 
Rigid Partition 
Rigid Partition 
Rigid Partition 
Rigid Partition 



Map Logical Uni t , 



Entry: A = Physical Driver Unit from Debtocker 

Exit: DE = dph index 

BC = pointer to format code 

Sasi LUN stored in command block 



Id 


hi ,p21 


Id 


d.O 


Id 


e , a 


add 


hl.de 


add 


hi ,de 


Id 


a. (hi) 


Id 


( lun) , a 


Id 


(def lun) 


inc 


hi 


Id 


b.h 


Id 


c. 1 


ret 





;set Rigid Physical to Logical map table 



;pbint to table entry 



get Sasi LUN 

store in read/write command 
store in define command 
point to format descriptor 



Mpa - Map Physical Address. 

Entry; BC = p21 format code address 
D = Track 
E = Sector 



Ex it ; 



Logical Address set in command block 

Seclen set for transfer 

Controller notified of floppy format 



jpreset sector length 



mpa 1 : 



Id 


h I , sec 1 en 


Id 


(hl),0 


ex 


de.hl 


Id 


a, (be) 


cp 


fm.hard 


jr 


z , mpa5 


cp 


f mddss 


jr 


c , mpa 1 


inc 


1 


Id 


a,h 


or 


a 


jr 


nz ,mpa2 


dec 


I 


Id 


a, 128 



ipreset Laddr. = Paddr for rigid 
;get drive format code 

; if Rigid Partition 

; i f s ingl e dens i ty 

;advance sector from 0->25 to !->26 



;if not on track zero 
; set short sector 



m 
en 



Balcones 


Operating System 


Phys ica 1 


Driver 


Se \ec\ 


28 15 


F5D9 


12 




2816 


F5DA 


OA 




2817 


F5DB- 


CB 


47 


2818 


F5DD 


28 


OA 


2819 


F5DF 


7C 




28 20 


F5EO 


FE 


4D 


2821 


F5E2 


36 


02 


, 2822 


F5E4 


06 


4D 


2823 


F5E6 


3F 




2824 


F5E7 


8F 




2825 


F5E8 


67 




2826 


F5E9 


E5 




2B27 


F5EA 


OA 




2828 


F5EB 


2A 


F6EB 


2829 


F5EE 


67 




2830 


F5EF 


1 1 


FFFF 


2831 


F5FO 






2832 


F5F2 


22 


F5F0 


2833 


F5F5 


B7 




2834 


F5F6 


ED 


52 


2835 


F5F8 


28 


OC 


2836 


F5FA 


3 2 


F6EF 


2837 


F5FD 


21 


F6EA 


2838 


F600 


CD 


F643 


2839 


F603 


CD 


F669 


2840 


F606 


El 




284 1 


F607 


44 




284 2 


F608 


1 1 


001A 


2843 


F60B 


62 




2844 


F60C 


37 




2845 


F60D 


ED 


52 


2846 


F60F 


04 




2847 


F610 


19 




2848 


F61 1 


10 


FD 


2849 


F613 


7C 




2850 


F614 


65 




2851 


F615 


6F 




2852 


F616 


22 


F6F2 


2853 


F619 


C9 
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mpa2 : 



mpa2 1 : 
mpa22 : 

1 as t fin 



mpa3 : 



mpa4 : 
mpa5 : 



2854 
2855 
2856 



Id 

Id 

bit 

jr 

Id • 

cp 

jr 

sub 

ccf 

adc 

Id 

push 

Id 

Id 

Id 

Id 

equ 

Id 

or 

sbc 

jr 

Id 

Id 

cal I 

cat 1 

pop 

Id 

Id 

Id 

scf 

sbc 

inc 

add 

d jnz 

Id 

Id 

Id 

Id 

ret 

subtt 1 
page 



(de) ,a 

a, (toe) 

fmds.a • 

z ,mpa2 2 

a,h 

77 

c , mpa2 1 

77 

a ,a 

h.a 

hi 

a, (be) 

hi , (def lun) 

h,a 

de,-l 

$-2 

( lastfm) ,hl 

a 

hi ,de 

z ,mpa3 

( f lpf nn) , a 

hi ,def lpy 

ices 

wee 

hi 

b.h 

de,26 

h.d 

hi ,de 

b 

hl.de 

mpa4 

a,h 

h, 1 

1 ,a 

(addrh) ,hl 



;if not double sided disk 

;map first 77 tracks to side zero 

;if side zero tracks 
;offset to back side 



;save track/sector 
;get. floppy format 
;9et new unit 

;get previously used format/lun 

;save this format/unit for next time 

;if unit and format same as last time 
; issue define floppy command 



jrecover track / sector 

; set track 

; compute sector-26-l+(Track+l ) *26 

;clear upper track 

;adjust sector 

;force one pass 

;multiply track by sectors/ track 

;if multiply incomplete 

;swap H 8. L 



[Store address in command block 



Sasi Bus Control Interface 



> 

n 

m 



> 

13 

Q. 
X* 
m 



F61A 


CD 


F6AD 


F61D 


7E 




F61E 


FE 


01 


F620 


3E 


OA 


F622 


2 a 


02 


F624 


3E 


03 


F626 


32 


F627 


F627 






F629 


CD 


F6D2 


F62C 


3E 


01 


F62E 


D3 


10 


F630 


3E 


20 


F632 


D3 


12 


F634 


DB 


12 


F636 


OF 




F637 


30 


06 


F639 


CD 


F6A5 


F63C 


F2 


F634 


F63F 


AF 




F640 


D3 


12 


F64 2 


C9 





m 
en 



Balcoiitis Operating System for 
Sasi Bus Control Interface 



2B57 
2058 
2059 
2060 
2061 
2062 
2063 
2064 
2065 
2066 
2067 
2060 
2069 
2070 
2071 
2072 
2073 
2074 
2075 
2076 
2077 
20 70 
2079 
2000 
200 1 
2002 
2003 
2004 
2005 
2006 
2007 
2000 
2009 
2090 
2091 
2092 
2093 
2094 
2095 
2096 
2097 
2090 
2099 
2900 
2901 
2902 
2903 
2904 
2905 
2906 
2907 
2900 
2909 
2910 
29 1 1 



I 
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F643 


7E 




F644 


FE 


04 


F646 


CO 




F647 


CD 


F61A 


F64A 


01 


0610 


F64D 


CD 


F607 


F650 


CO 




F651 


ED 


A3 


F653 


20 


Ffl 


F655 


C9 





F656 


CD 


F607 


F659 


20 


OE 


F65B 


ED 


B3 . 


F65D 


IB 


OA 



F65F 


CD 


F6CE 


F662 


CD 


F607 


F665 


20 


02 


F667 


ED 


B2 



yea : 



gcaO : 
gcaa 



gcal : 



gca2: 



ices 1 ; 



tdo : 



tdi : 



gca - 

cal I 

Id 

cp 

Id 

jr 

Id 

Id 

equ 

cal 1 

Id 

out 

Id 

out 

in 

rrca 

jr 

cal 1 

JP 

xor 
out 
ret 

ices 



get controller attention. 



;reset controller if required 
;get command 

;set 9+ second time-put 

;if recalibrate, use long time-out 

;use short time-out 



reset 

a, (hi) 

c . recal 

a, 9+1 

z ,gcaO 

a, 2+1 

(gcaa) ,a 

$-2 ;*****=> ;moni tor one second timer address goes here 

som ;set output mode 

a,l ;Set sasi controller address 

(Sasid) ,a 

a , 1 shl b . se 1 



(Sasic) ,a 
a, (Sas is) 

c ,gca2 

eft 

p, gca 1 

a 

( Sas ic) , a 



jassert Select Line 

;get sasi status 
;get busy bit in C 
;if controller is ready 
;check for time-out 
; i f not t imed out 

;drop Se lee t 



issue Controller Command. 



HL => Sasi command block 



Id 

cp 

ret 

cal 1 

Id 

cal 1 

ret 

out i 

jr 

ret 

tdo - 



;peek at opcode 



a, (hi) 

c . f ma t 

z ;do not allow format entire disk 

gca ;get controller attention 

be , Sasid+6*256 ;set port / command block length 

wfr jwait for REQ 

z ;if data requested 

;send next byte 
nz , ices 1 



transmit data out. 



cal 1 


wfr 




jr 


nz , wee 




otir 






jr 


WCC 




tdi - 


transmit data 


in . 


cal 1 


si in 




cal 1 


wfr 




jr 


nz , wee 




ini r 







; wai t for req 

;if not data requested 

; pitch sector out 



;set input mode 

;wait for req 

;if status, not data requested 

;read sector 



wait command complete. 



m 
en 
en 



> 
-a 
■a 

a. 

x' 
m 



F669 • 


CD 


F6CE 


F66C 


CD 


F607 


F66F 


20 


2A 


F671 


ED 


78 


F67 3 


E6 


03 


F675 


47 




F676 


CD 


F687 


F679 


28 


20 


F67B 


DB 


12 


F67D 


CB 


4F 


F67F 


28 


1A 


F68 1 


ED 


78 


F683 


20 


16 


F6B5 


BO 




F6B6 


C9 
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29 12 
29 13 
2914 
2915 
2916 
2917 
2918 
2919 
2920 
2921 
2922 
2923 
2924 
2925 
2926 
292 7 
2928 
2929 
2930 
2931 
2932 
2933 
2934 
2935 
2936 
2937 
2938 
2939 
2940 
2941 
2942 
2943 
2944 
2945 
2946 
2947 
2948 
2949 
2950 
2951 
2952 
2953 
2954 
2955 
2956 
2957 
2958 
2959 
2960 
2961 
2962 
2963 
2964 
2965 
2966 
2967 
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F687 


CD 


F6A5 


F68A 


FA 


F69A 


F68D 


DB 


12 


F6BF 


CB 


5F 


F691 


28 


F4 


F693 


CB 


77 


F695 


20 


03 


F696 






F697 


E6 


04 


F699 


C9 




F69A 


F 1 





F69B 


AF 




F69C 


3 2 


F6AD 


F69F 


F6 


FF 


F6A1 


32 


F5F0 


F6A4 


C9 





F6A5 


CD 


F066 


F6A8 


3A 


0000 


F6A9 






F6AB 


B7 




F6AC 


C9 





wfr : 



wfra 



^frl : 



cf t ; 

cf ta 



cal 1 


s im 


cal 1 


wfr 


jr 


z , ecr 


in 


a.(c) 


and 


3 


Id 


b,a 


cal I 


wfr 


jr 


z , ecr 


in 


a, (Sas is) 


bit 


b.msg , a 


jr 


2 , ecr 


in 


a,(c) 


jr 


nz , ecr 


or 


b 


ret 


« 



;set input mode 

;wait for REQ 

;if controller not providing status 

; read completion status 

; ignore unused bits 

;wait for REQ 
; i f not status 
jrecover status 

;if not message byte 

; read message byte 

;if last byte not zero 

;set Sasi error status byte 



wfr - wait for REQ. 



Exit; A < Timer Expired 

A = Request is for data 
A > Request is for control 

;check for time-out 
;if controller hung 
j read sasi status 

;if request not asserted 
;check buss parity 
; i f pari ty error 

;test control / data bit 

;pitch return address 

ecr - Enable Controller Reset. 



cal 1 


eft 


JP 


m , w f r 1 


in 


a , (Sasis) 


bit 


b. req, a 


jr 


z.wfr 


bit 


b . par , a 


jr 


nz.wfrl 


equ 


$-1 


and 


1 shl b.cd 


ret 




pop 


af 



xor a 

Id ( reset ) , a 

or -1 

Id (lastfm).a 

ret 



enable controller reset next time 
by placing NOP at reset entry point 
return error status 
force define floppy format 



Cf t 



Check for Time-out. 



cal 1 idle ; idl e cpu 

Id a,(0) 

equ $-2 ;*****=> ; Thi s word gets the address of the timer 

publ ic cf ta 

or a 

ret 



Reset 



Reset Cont rol ler. 



This routine is called prior to every command that is 
issued to the controller, but disables itself after 



F6AE 


3E 


CF 


F6B0 


D3 


13 


F6B2 


3E 


5F 


F6B4 


D3 


13 


F6B6 


3E 


80 


F6B8 


D3 


12 


F6BA 


AF 




F6BB 


D3 


12 


F6BD 


3E 


C9 


F6BF 


32 


F6AD 


F6C2 


E5 




F6C3 


21 


F6E8 


F6C6 


CD 


F643 


F6C9 


CD 


F669 


F6CC 


El 




F6CD 


C9 





F6D2 


3E 


OF 


F6D4 


D3 


1 1 


F6D6 


C9 





F6D7 


OA 




F6D8 


E6 


BO 


F6DA 


ca 




F6DB 


3E 


00 


F6DC 






F6DD 


B7 




F6DE 


ca 




F6DF 


7A 




F6E0 


B7 




F6E1 


ca 




F6E2 


3A 


F6F0 


F6E5 


D6 


oa 


F6E7 


C9 





Balcones Operating System for the XEROX 820-11 
Sasi Bus Control Interface 

2968 
2969 
2970 

297 1 

29 7 2 F6AD 00 reset: 
2973 
2974 
2975 
2976 
2977 
2978 ' 
2979 
2980 

298 1 

298 2 
2983 
2984 
2985 
2986 
2987 
2988 
2989 
2990 

299 1 
2992 

2993 F6CE 3E 4F 

2994 F6D0 18 02 
2995 
2996 
2997 
2998 
2999 
3000 
3001 
3002 
3003 

3004 F6D7 OA cwp: 

3005 
3006 
3007 

3008 F6DC rdonly 

3009 

30 10 
301 1 
3012 
3013 
3014 
3015 
3016 
30 17 
30 18 
30 19 
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running. When, and if the controller times-out, this 
routine is re-enabled. Thus, the controller will be 
reset again before the next command is issued. 



nop 



Id 


a, 1 1001 1 1 lb 


out 


(pioBs) ,a 


Id 


a, 0101 1111b 


out 


(pioBs) , a 


Id 


a , 1 shl b.rst 


out 


(Sasic) , a 


xor 


a 


out 


(Sas ic ) , a 


Id 


a,0c9h 


Id 


( reset ) , a 


push 


hi 


Id 


hi , rgreca 1 


cal 1 


ices 


ca) 1 


wee 


pop 


hi 


ret 





;*****=> ;Note RET gets put here after reset 
; NOP gets put there If time-out 
{initialize pio in mode 3 

;d7, d5 are outputs 

jassert reset to controller 

;de-assert reset 

;disable reset until time-out 

; issue recursive rigid recalibrate 



Sim - Set Input Mode. 



Id 
jr 



a, 01001 11 lb 
soml 



SOU); 


Id 


soml : 


out 




ret 



Som - Set Output Mode. 



a.OQOOl 1 1 lb 
(pioAs ) , a 



;set pio A input mode 



;set pio A output mode 



cwp - check write protect. 

;get drive type 



Id 


a, (be) 


and 


f m.hard 


ret 


2 


Id 


a.O 


equ 


$-1 


or 


a 


ret 


2 


Id 


a.d 


or 


a 


ret 


2 


Id 


a , (opcode) 


sub 


c . read 


ret 





;if not rigid disk access 
;get dirty parameter flag 



;if not write protected 

;if track zero request 

;al low reads, but no writes to file system 



subttl Sasi Command Blocks 
page 



m 
en 
CO 
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3020 
3021 
3022 
3023 
3024 
3025 
3026 
3027 
3028 
3029 
3030 
3031 
3032 
3033 
3034 
3035 
3036 
3037 
3038 
3039 
3040 
3041 
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Sasi Command Blocks. 



F6EB 


01 


F6E9 


60 


F6EA 


CO 


F6F.B 


00 


F6EC 


00 00 00 


F6EF 


00 


F6F0 


00 


F6F1 


00 


F6F2 


00 


F6F3 


00 


F6F4 


1 


F6F5 


00 



rgreca 1 


:db 


c . reca 1 


rec 1 un : 


db 


3 shl 5 


def lpy : 


db 


c . f 1 py 


def 1 un : 


db 







db 


0,0,0 


f Ipf nil: 


db 





opcode : 


db 





1 un: 


db 





addrh; 


db 





addrl : 


db 





nblk: 


db 


1 


dc t r 1 .- 


db 







subt t 1 


Over 1 ay 




page 





jdefine floppy format 



Class code / Operation 

Logical Unit & Logical Address 20-16 
Logical Address 15-8 
Logical Address 7-0 

Number of Blocks 

Error Retry Disable Control word 



Overlayable Initialization Code 



> 

Q. 
X* 

m 



> 

"D 



F6F6 



F5 



0010 






000A 






F6F7 


3E 


C9 


F6F9 


32 


F6F6 


F6FC 


26 


00 


F6FE 


CD 


F039 


F701 


2B 




F702 


22 


F6A9 


F705 


22 


F627 


F70B 


2 1 


F767 


F70B 


CD 


F4B0 


F70E 


B7 




F70F 


CC 


F723 


F7 12 


2B 


OD 


F714 


21 


F76C 


F7 17 


7E 




F71B 


C6 


20 


F7 1A 


77 




F71B 


20 


EB 


F 7 ID 


2F 




F7 IE 


32 


F6DC 


F721 


HI 




F722 


C9 





m 



F7 23 


21 


EEOO 


F7 26 


3 A 


F76C 


F729 


FE 


20 


F72B 


2U 


04 


F7 2D 


7E 




F72E 


FE 


E5 


F7 30 


CB 




F731 


1 1 


OOOF 


F734 


06 


04 


F736 


7E 




F737 


B7 




F730 


CO 




F7 39 


19 




F73A 


7E 




F73B 


E6 


B7 


F7 3D 


CB 


2F 


F73F 


CB 


2F 


F741 


CO 




F742 


23 




F743 


10 


F1 


F745 


2B 




F746 


1 1 


F4AF 


F749 


1 


0040 



f irst ; 



f irst 1 



Balcones Operating System for the XEROX B20-II 
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3042 
3043 
3044 
3045 
3046 
3047 
3048 
3049 
3050 
305 1 
3052 
3053 
3054 
3055 
3056 
3057 
305B 
3059 
3060 
3061 
3062 
3063 

3064 ( 

3065 ' 
3066 
3067 
306B 
3069 
3070 
307 1 
30 7 2 
3073 
3074 
3075 
307 6 
307 7 
307B 
3079 
3OB0 
30B1 
30B2 
30B3 
30B4 
30B5 
30B6 
30B7 
30BB 
3089 
3090 
3091 
3092 
3093 
3094 
3095 
3096 
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f \i st2: 



First - First time only. 



push 


af 


phex 


$-dskdvr,<S, 


. radi x 


16 


. radi x 


10 


Id 


a,0c9h 


Id 


(f i rst ) , a 


Id 


h,0 


cal 1 


dayt 1 


dec 


hi 


Id 


(cf ta) ,hl 


Id 


(gcaa) ,hl 


Id 


h 1 ,cnf dpb 


cal 1 


sa1403 


or 


a 


cai 1 


z , cpb 


jr 


z, f irst2 


Id 


hi , cnfdpb+5 


Id 


a . ( h 1 ) 


add 


a, 32 


Id 


(hi) .a 


jr 


nz , f i rst 1 


cp 1 




Id 


( rdon I y ) , a 


pop 


af 


ret 





;nuke self first time 

; indicate return register value 
;get address of monitor timer 

;store address of timer for check routine 
;and for command startup 

ipoint to physical driver read command 
;read partition parameters 

;if no errors then check parameter blocks 
;if parameters are loaded 
;try backup heads 
;get logical sector 
jadvance to next head 

;if 4 heads and 2 cylinders not attempted 
;set tracks > read only 



cpb - check parameter blocks. 



cpb: 


Id 


hi , rgdbuf 




Id 


a, (cnf dpb+5) 




cp 


32 




jr 


nz , cpbl 




Id 


a. (hi) 




cp 


Qe5h 




ret 


z 


cpbl : 


Id 


de. 16-1 




Id 


b,4 


cpb2: 


Id 


a , ( h 1 ) 




or 


a 




ret 


nz 




add 


hl.de 




Id 


a , ( h 1 ) 




and 


87h 




sra 


a 




sra 


a 




ret 


nz 




inc 


hi 




djnz 


cpb2 




dec 


hi 




Id 


de,Dpbrg4+16*4-1 




Id 


be, 16*4 



; point to dpb buffer 

;get sector this dpb set came from 

;if not primary set 



;use default dpbs if none configured 

;set offset from high spt to deblock control 

; verify 4 dpbs 

;set low sectors / track 

;if bummer sectors / track 
;advance to deblock control 



;if bad deblocking constant 



m 
O 
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3097 
3098 
3099 
3100 
3101 
3 102 
3103 
3104 
3105 
3106 
3107 
3108 
3109 
31 10 
3111 
3112 
31 13 
31 14 
31 15 
31 16 
31 17 
31 IB 
31 19 
3120 
3121 
3122 
3123 
3124 
3125 
3126 
3127 
3 128 
3 129 
3 130 
3131 
3 132 
3133 
3134 
3135 
3136 
3137 
3 138 
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F74C 


ED 


B8 


F74E 


01 


0010 


F751 


1 1 


F3DE 


F754 


21 


F47D 


F757 


3E 


04 


F759 


F5 




F75A 


7E 




F75B 


3D 




F75C 


87 




F75D 


12 




F75E 


09 




F75F 


EB 




F760 


09 




F761 


EB 




F762 


F1 




F7bi 


3D 




F764 


20 


F3 


F766 


CB 




F767 


01 


04 Oi 


F76A 


0000 


F76C 


0020 


F76E 


EEOO 



cpb3: 



0300 



FAOB 



OAOB'" 




FAOB 




FAOB 




FAOB 


2 1 0000 


FAOB 


F6 FF 


FAOD 


C9 



cnf dpb : 

sas idl 
d I oc 



Dvr lint : 
rqtop 

slerr: 



Iddr 

Id 

Id 

Id 

Id 

push 

Id 

dec 

add 

Id 

add 

ex 

add 

ex 

pop 

dec 

jr 

ret 

db 

dw 
dw 
dw 



be 

de 

hi 

a » 

af 

a * 

a 

a , 

(d 

hi 

de 

hi 

de 

af 

a 

nz 

z 



;move dpbs into place 
,16 ;set 16 bytes/dpx 

, Dpbase + 4* 16+ 14 -.point at alloc vector pointer 
,Dpbrg4+13 ;point at reserved tracks 
4 ;count off 4 partitions 



(hi) 

a 

e) , a 

.be 

.hi 

.be 

,hl 



cpb3 



01 ,4,0 



32 

rgdbuf 



equ $-sasstr 
. dephase 

def 1 dl oc+sas idl 
.phase dtoc 

above 
d&seg 



equ 

Id 
or 
ret 



hi ,0 
-1 



;get reserved tracks for partition 

-, just so nice numbers come out 

;16 blks/track / 8 blks/byte = 2 bytes/track 

-.store low allocation vector address 

jadvance to next dpb 

-.advance to next dph 



;if more to allocate 
jreturn success 

; read partition 

; track zero 

;sector 32 

;rigid parameter table buffer 



;disk driver 1 imi t 

;set required top of resident monitor 



subttl 820 Styje Disk Driver Emulator 
page 



> 

r> 

Q- 
x' 
m 



> 

■a 

a> 

Q- 
x* 
m 



PAGE 


FF 


FAOF 


FF 


F A 10 


00 


FA1 1 


0000 


FA13 


0001 


FA15 


ED80 



FA17 


79 




FA1B 


FE 


08 


FA1A 


30 


ID 


FA1C 


3 2 


FA10 


FA IF 


21 


FA5A 


FA22 


06 


00 


FA24 


09 




FA25 


7E 




FA26 


B7 




FA27 


EB 




FA2B 


67 




FA29 


6F 




FA2A 


C8 




FA2B 


D5 




FA2C 


06 


FF 


FA2E 


CD 


FA51 


FA31 


7D 




FA32 


B4 




FA33 


D1 




FA34 


28 


03 


FA36 


AF 




FA37 


12 




FA30 


C9 




FA39 


F6 


FF 


FA3B 


C9 





m 



6a) cones Operating System for the XEROX 820-11 
8 20 Style Disk Driver Emulator 

3 139 

3140 ;; 

3141 ; 
3142 

3143 OAOE' 
3144 
3145 
3146 
3147 
3148 
3149 
3150 
3151 
3152 
3153 
3154 
3155 
3156 
3157 

3158 FA17 79 select: 

3159 
3160 
3161 
3162 
3163 
3 164 
3 1 65 
3166 
3167 
3168 
3 169 
3170 
3171 
3 172 
3173 
3174 , 
3175 
3176 
3177 
3178 
3 179 
3180 

3181 FA39 F6 FF sel 1 ; 

3182 
3 183 

3184 ;; 

3185 ; 

3186 FA3C UE 00 home: 
3187 

3188 ;; 

3189 

3190 ; 

3191 ; 

3192 FA3E 79 seek: 

3193 FA3F 32 FA1 1 
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820 Style Disk Driver Emulator. 





above 






d&seg 




phycmd : 


def b 


-1 


phyunt : 


def b 


-1 


phydrv : 


defb 


00 


phy trk: 


def w 


00 


physec : 


def w 


01 


phydina : 


def w 


bootbf 



jgenerate code in ram 



; physical Driver Command 
iphysical unit 
; 1 ogical uni t 
; track 

jsector 
;dma address 



Select - Select Unit for I/O. 



Entry : 
Exit : 



Id 

cp 

jr 

Id 

Id 

Id 

add 

Id 

or 

ex 

Id 

Id 

ret 

push 

Id 

cal 1 

Id 

or 

pop 

jr 

xor 

Id 

ret 

or 

ret 



C = Unit 

A =0 if no errors 

A = -1 if errors 



a,c 

a 

nc , sel 1 

(phydrv) ,a 

hi ,sel tbl 

b t 

hi ,bc 

a, (hi) 

a 

de.hl 

h,a 

1 .a 

Z 

de 

b,-1 

xqphys 

a. 1 

h 

de 

z.sel 1 

a 

(de) ,a 

-1 



;set drive selected 



;save logical CP/M drive 
;set select table address 

;index into select table 



; in case previous select worked, say no dph 

;to internal routines 

; i f drive has already been selected 

;save table address 

;set Select operation 

jexecute physical driver 

;get returned dph address 

jretrieve select table address 

;if select unsuccessful 

; return no errors 

jprevent more density re-selects 

jreturn error ■ 



Home - Position to track zero. 

Id c,0 jforce track zero 

Seek - Seek Track. 

Entry: C = Track to read/write from next 



Id 
Id 



a . c 
(phytrk) ,a 



m 
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3194 
3195 
3196 
3197 
3198 
3199 
3200 
3 201 
3202 
3203 
3204 
3205 
3206 
3207 
3208 
3209 
3210 

321 1 
3212 
3213 
3214 
3215 
3216 
3217 
3218 
3219 
3220 

322 1 
3222 
3223 
3224 
3225 
3226 
3227 
3228 
3229 
3230 
3231 

323 2 
3233 
3234 
3235 



FA42 
FA43 



FA44 
FA46 



FA48 



FA5A 
FA5E 



AF 
C9 



06 00 
18 02 



06 01 



FA4A 


79 




FA4B 


32 


FA13 


FA4E 


2 2 


FA15 



FA51 


21 


FAOE 


FA54 


7 




FA55 


CD 


F344 


FA58 


B7 




FA59 


C9 





write; 



read : 



rdwr : 



xqphys : 



FF FF FF FF 
FF FF FF FF 



sel tbl 



MACRO-80 3.44 



xor 
ret 



09-Dec-ai 



; return no errors 



Write - Write Physical Sector. 

;set Write operation 



Id 



b,0 
rdwr 



Read - Read Physical Sector. 



Id 



b, 1 



;set read operation 



Rdwr - Read/Write Processor. 

Entry 

Exit: 



C = Sector 
HL = Transfer Address 
A = i f no errors 
A = - 1 i f errors 



Id 
Id 
Id 

xqphys 

Entry : 



Id 
Id 

cal 1 
or 
ret 



a , c 

(physec ) ,a 
(phydma) ,hl 



;set physical sector 
;set transfer address 



- Internal Execute Physical Driver. 

B = -1 for Select 
B = for Write 
B = 1 for Read 



hi , phycind 
(hi) ,b 
xqdvr 
a 



;point to physical command block 
;store operation 
jexecute driver 
;set flags 



Emulator Disk I/O Ram. 

defb -1,-1,-1,-r 
defb -1.-1,-1,-1 



;drive already selected table 



subttl Command processor 
page 



> 
a 

X* 

m 
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m 



3236 
3237 
3238 
3239 
3240 
3241 
3242 
3243 
3244 
3245 
3246 
3247 
3248 
3249 
3250 
3251 
3252 
3253 
3254 
3255 
3256 
3257 
3258 
3259 
3260 
3261 
3262 
3263 
3264 
3265 
3266 
3267 
3268 
3269 
3270 
3271 
3272 
3273 
3274 
3275 
32 76 
3277 
3278 
3279 
3280 
3281 
3282 
3283 
3284 
3285 
3286 
3287 
3288 
3289 
3290 



0A62' 



FA62 


FB 




FA63 


3 1 


0000 


FA66 


CD 


FC3D 


FA69 


OD 


OA 


FA6B 


2A 


20 


FA6D 


04 




FA6E 


2 1 


FF5C 


FA71 


OE 


50 


FA73 


CD 


FB37 


FA76 


38 


51 


FA78 


3A 


FF5C 


FA7B 


FE 


OD 


FA7D 


28 


E3 


FA7F 


D6 


40 


FA81 


FE 


IB 


FA83 


30 


44 


FA85 


87 




FA86 


4F 




FA87 


06 


00 


FA89 


2 1 


FAD9 


FA8C 


09 




FA8D 


7E 




FABE 


2B 




FA8F 


6E 




FA90 


67 




FA91 , 


E6 


80 


FA93* 


20 


17 


FA95 


1 1 


FC55 


FA98 


05 




FA99 


01 


0299 


FA9C 


F3 




FA9D 


DB 


1C 


FA9F 


B7 




FAA0 


F5 




FAA1 


F4 


F29C 


FAA4 


ED 


BO 


FAA6 


F1 




FAA7 


F4 


F293 


FAAA 


FB 




FAAB 


El 




FAAC 


E5 




FAAD 


CD 


FC36 


FABO 


FD 


21 FF5D 


FAB4 


CD 


FB5F 


FAB7 


DD 


El 


FAB9 


2 A 


FFB5 


FABC 


ED 


5B FFB7 


FACO 


ED 


4B FFB9 


FAC4 


CD 


FAD6 


FAC7 


30 


99 



above 




d&seg 




; ; prompt 


user for com 


prompt : ei 




Id 


sp , stack 


cal 1 


pnex t 


defb 


cr t If 


def m 


' * # 


defb 


eot 


Id 


hi . 1 inbuf 


Id 


c,80 


cal 1 


get I in 


jr 


c f what 


autobt : Id 


a , ( 1 inbuf ) 


cp 


cr 


jr 


z .prompt 


sub 


'(£>' 


cp 


' Z '-'&'+ l 


jr 


nc.what 


add 


a ,a 


Id 


c ,a 


Id 


b.O 


Id 


hi , cmdtab+1 


add 


hl.bc 


Id 


a, (hi) 


dec 


hi 


Id 


l.(hl) 


Id 


h.a 


and 


80h 


jr 


nz .prmt 1 


Id 


de , c I oc 


push 


de 


Id 


be , tpamax 


di 




in 


a, ( syspio) 


or 


a 


push 


af 


cal I 


p, crt on 


Idir 




pop 


af 


cal 1 


p, crtof f 


ei 




pop 


hi 


prmt 1 : push 


hi 


cal 1 


crlf 


i Id 


iy , 1 inbuf + 1 


cal 1 


pa rams 


pop 


i x 


Id 


hi , (paraml ) 


Id 


de , (param2) 


Id 


be , (param3) 


cal 1 


jpix 


jr 


nc .prompt 



;put code upstairs 



jreset system stack 



.buffer of 80 chars (ver. 2.0) 
; input a bufered console line 
;print 'what ?' if input error 
;get first character in line 

; jump if a null line 



; i f not letter 



; index command table with character 



;get address of command processor 



;if resident command 

;move transient command to RAM area 

;set length of largest transient 



;enable rom if disabled 

jdisable rom if enabled 
;set execution address 



input numeric parameters from, 
line buffer and test if error 



;cal I subroutine @ ix 

;go back to prompt if no errors 



m 



> 
"O 

a. 



FAC9 


CD 


FC3D 


FACC 


20 


77 68 61 


FADO 


74 


3F 


FAD2 


7 




FAD3 


04 




FAD4 


IB 


8C 



FAD6 



DD E9 
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3291 
3292 
3293 
3294 
3295 
3296 
3 297 
3298 
3299 
3300 
3301 
3302 
3303 
3304 
3305 
3306 
3307 
3308 
3309 
3310 
331 1 
3312 
3313 
3314 
33 15 
3316 
3317 
3318 
33 19 
3320 
3321 
3322 
3323 
3324 
3325 
3326 
3327 
3328 
3329 
3330 
333 1 
3332 
3333 
3334 
3335 
3336 
3337 
3338 
3339 
3340 
3341 
3342 
3343 
3344 
3345 
3346 
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FAD8 


177B 


FADA 


1 1B8 


FADC 


1353 


FADE 


1436 


FAEO 


12F2 


FAE2 


1315 


FAE4 


1428 


FAE6 


12DB 


FAE8 


14E2 


FAEA 


13CA 


FAEC 


FAC9 


FAEE 


FAC9 


FAFO 


1 1B8 


FAF2 


1315 


FAF4 


FAC9 


FAF6 


13F1 


FAF8 


1459 


FAFA 


FAC9 


FAFC 


1367 


FAFE 


FAC9 


FBOO 


1477 


FB02 


FAC9 


FB04 


1443 


FB06 


1367 


FB08 


13FB 


FBOA 


FAC9 


FBOC 


FAC9 


0036 




FBOE 


BE 


FBOF 


CB 


FB10 


F5 


FBI 1 


CD FB22 


FB14 


CD FC3D 


FB17 


73 68 6F 75 


FB1B 


6C 64 3D 


FB1E 


04 


FB1F 


Fl 


FB20 


18 07 


FB22 


CD FC36 


FB25 


CD FC16 


FB28 


7E 


FB29 


C3 FC1.B 



what : 


cal 1 
def m 


pnext 

' what?' 










defb 


'G'-64 


sa 


y 


'what ?' and squeal 




defb 


eot 










jr 


prompt 








jpix : 


ip 


(ix) 


ca 


1 1 subrout ine @ i x 


cmdtab : 


def w 


he Ip 


& 


- 


Help user 




def w 


boot 


a 


- 


boot cp/m 




def w 


baud 


b 


- 


bit rate 




def w 


bl ock 


c 


- 


memory block move 




def w 


memdmp 


d 


- 


dump memory in hex/ascii 




def w 


view 


e 


- 


enter memory 




def w 


f i 1 1 


f 


- 


fill memory 




def w 


goto 


g 


- 


goto program 




def w 


term 


h 


- 


host terminal 




def w 


incmd 


i 


- 


read from input port 




def w 


what 


J 


- 


not used 




def w 


what 


k 


- 


not used 




def w 


boot 


1 


- 


load system 




def w 


view 


in 


- 


memory examine/change 




def w 


what 


n 


- 


not used 




def w 


outcmd 


o 


- 


write to output port 




def w 


proto 


P 


- 


printer protocol 




def w 


what 


q 


- 


not used 




def w 


dskcmd 


r 


- 


display disk sector data 




def w 


what 


s 


- 


not used 




def w 


type 


t 


- 


typewriter mode 




def w 


what 


u 


- 


not used 




def w 


vercmd 


V 


- 


memory block compare 




def w 


dskcmd 


w 


- 


disc sector write command 




def w 


test 


X 


- 


ram diagnostic 




def w 


what 


y 


- 


not used 




def w 


what 


z 


- 


not used 


cmds i 2 


equ 


$-cmdtab 








check : 


cp 


(hi) 










ret 


z 


re 


t 


jrn if (hi )=a 




push 


af 










cal 1 


mdata 


pr 


int what was actually read 




cal 1 


pnext 










def in 


' shou 1 d= ' 










defb 


eot 










pop 


af 










jr 


put2j 








indata : 


cal 1 
cal 1 
Id 


crlf 
put4hs 
a, (hi) 








put2j: 


JP 


put2hs 










subtt 1 


Console support rout 


ines 
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■a ■' 

^ 3347 page 

Q. 

x 
m 



in 
en 



m 
en 
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> 

m 



Console support routines 



3348 
3349 
3350 
335 1 
3352 
3353 
3354 
3355 
3356 
3357 
335B 
3359 
3360 
3361 
3362 
3363 
3364 
3365 
3366 
3367 
3360 
3369 
3370 
3371 
3372 
3373 
3374 
3375 
3376 
3377 
3378 
3379 
3380 
338 1 
3382 
3383 
3384 
3385 
3386 
3387 
3388 
3389 
3390 
3391 
3392 
3393 
3394 
3395 
3396 
3397 
3398 
3399 
3400 
3401 
3402 



get I in 



read line into buffer. 



FB2C 


3E 


40 


FB2E 


32 


FF5C 


FB31 


3E 


OD 


FB33 


32 


FF5D 


FB36 


C9 




FB37 


41 




FB3B 


CD 


FC27 


FB3B 


FE 


IE 


FB3D 


28 


ED 


FB3F 


77 




FB40 


FE 


OD 


FB42 


C8 




FB43 


FE 


08 


FB45 


28 


09 


FB47 


FE 


20 


FB49 


D8 




FB4A 


23 




FB4B 


0D 




FB4C 


20 


EA 


FB4E 


3 7 




FB4F 


C.9 




FB50 


2B 




FB51 


CD 


FC3D 


FB54 


20 


08 


FB56 


04 




FB57 


OC 




FB58 


78 




FB59 


91 




FB5A 


30 


DC 


FB5C 


C9 




FB5D 


FD 


23 


FB5F 


01 


OOFF 


FB62 


FD 


7E 00 


FB65 


D6 


OD 


FB67 


CO 




FB68 


D6 


13 


FB6A 


28 


F1 


FB6C 


OC 




FB6D 


CB 


51 


FB6F 


37 




FB70 


CO 




FB71 


C5 




FB72 


CD 


FBDA 


FB75 


CI 




FB76 


DD 


21 FFI 


FB7A 


DD 


09 


FB7C 


DD 


09 


FB7E 


DD 


75 00 


FB8 1 


DD 


74 01 


FB84 


FE 


20 



geth Ip : 


Id 


a , ' &' 




Id 


( I inbuf ) ,a 




Id 


a, cr 




Id 


( 1 inbuf+1 ) ,a 




ret 




get 1 in: 


Id 


b.c 


g 1 i n 1 : 


cal 1 


echo 




cp 


He lpkey 




jr 


z , gethlp 




Id 


(hi) ,a 




cp 


cr 




ret 


z 




cp 


'H'-64 




jr 


z ,gl in4 




cp 


' ' 




ret 


c 




inc 


hi 




dec 


c 




jr 


n z , g 1 i n 1 




scf 






ret 




gl in4 : 


dec 


hi 




cal I 


pnex t 




defb 


' . ' , 'H'-64 




defb 


eot 




inc 


c 




Id 


a.b 




sub 


c 




jr 


nc , g 1 i nl 




ret 




paraO : 


i n c 


iy 


params : 


Id 


be, low - 1 




Id 


a, ( iy+0) 




sub 


cr 




ret 


z 




sub 


' '-cr 




jr 


z .paraO 


para 1 : 


inc 


c 




bit 


2.c 




scf 






ret 


nz 


para2 : 


push 


be 




cal 1 


gethex 




pop 


be 


para4 : 


Id 


i x ,paraml 




add 


i x ,bc 




add 


i x ,bc 




Id 


( ix + 0) , 1 




Id 


(ix+1),h 




cp 


* * 



;save max line length parameter in b 
;get a character from the console 

;if user needs help 

-.check for carriage return 

-, i f end of 1 ine 

; check for ctl-h backspace 



jother control characters are illegal 
jstore character in buffer 

;get another if there's more room 

jreturn with carry=l if too 
;many characters are entered 
;delete last character from buffer 

-.delete character from screen 



;set max line length 

; i f backspace not past the start of the line 



;advance character scan 
;set parameter index 
;fetch character 



;if no parameters 

; i f 1 eading bl anks 
-.advance parameter index 



jerror if > 4 numbers entered 

;save parameter count 

; read a number from line buffer 

;point to parameter storage area 
; add parameter count in be 



jstore data returned from 'GETHEX' 



> 

a> 

O. 

x' 

m 



FB86 


2B 


E4 


FB88 


FE 


2C 


FBBA 


2B 


EO 


FB8C 


79 




FBBD 


3C 




FBBE 


C9 





m 
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3403 

3404 

3405 

3406 

3407 

3408 

3409 

3410 

3411 

34 12 FBBF E5 dump: 

3413 

3414 

3415 

34 16 FB9B 3E OF" dump2 : 

3417 

341B 

34 19 

3420 

34 2 1 

3422 

3423 

3424 

3425 

3426 

3427 

342B 

3429 FBB4 3E IF dump3 ; 

3430 

3431 

3432 

3433 

3434 

3435 

3436 

3437 

343B 

3439 

3440 

3441 

3442 

3443 FBD1 CD FC36 dump4 : 

3444 

3445 

3446 

3447 

3448 

3449 

3450 

3451 

3452 

3453 

3454 

3455 

3456 FBDA 2 1 0000 gethex: 

3457 

3450 
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FBBF 


E5 




FB90 


CD 


FC16 


FB93 


CD 


FC1E 


FB96 


06 


10 


FB9B 


3E 


OF - 


FB9A 


CD 


FC23 


FB9D 


3E 


07 


FB9F 


CO 


FC23 


FBA2 


3E 


03 


FBA4 


CD 


FC23 


FBA7 


7E 


* 


FBAB 


23 




FBA9 


CD 


FC1B 


FBAC 


10 


EA 


FBAE 


c.D 


FC1E 


FBB1 


El 




FBB2 


06 


10 


FBB4 


3E 


IF 


FBB6 


CD 


FOOC 


FBB9 


7E 




FBBA 


23 




FBBB 


CD 


FOOC 


FBBE 


10 


F4 


FBCO 


CD 


F006 


FBC3 


20 


OC 


FBC5 


CD 


F009 


FBC8 


FE 


OD 


FBCA 


C8 




FBCB 


CD 


F009 


FBCE 


FE 


OD 


FBDO 


CB 




FBD1 


CD 


FC36 


FBD4 


IB 




FBD5 


7A 




FBD6 


B3 




FBD7 


20 


B6 


FBD9 


C9 





jr z.paral 

cp 

jr z.paral 

Id a,c 

inc a 

ret 

dump - dump memory. 



push 


hi 


cal 1 


put4hs 


cal 1 


space 


Id 


b, 16 


Id 


a, 16-1 


cal 1 


dmpf mt 


Id 


a, 8-1 


cal 1 


dmpf mt 


Id 


a, 4-1 


cat 1 


dmpf mt 


Id 


a. (hi ) 


inc 


hi 


cal 1 


put2hs 


djnz 


dump 2 


cal 1 


space 


pop 


hi 


Id 


b. 16 


Id . 


a.lfh 


cal 1 


conout 


Id 


a, (hi ) 


inc 


hi 


cal 1 


conout 


djnz 


dump3 


cal 1 


const 


jr 


z , dump4 


cal 1 


con in 


cp 


cr 


ret 


z 


cal 1 


con in 


cp 


cr 


ret 


z 


cal 1 


crlf 


dec 


de 


Id 


a,d 


or 


e 


jr 


nz .dump 


ret 





;get another item if space 

;get another item if comma 
;set parameter count 



;save starting address 

;print starting address in hex 



skip 3 columns on 16 byte boundry 

ship 2 columns on 8 byte boundry 

skip 1 column on 4 byte boundry 

get a data byte @ hi 

print the data in hex 
repeat 16 times 

restore starting address 

force next character 

get back data byte @ hi 

print ascii character in a 

check console status 
if char not ready 
read char 

if user abort 

pause while user examines display 

if user found it 
send end of 1 ine 

;if dump not complete 



gethex converts ascii to binary. 

carry set on illegal conversion result 
terminating character returns in a. 
hi returns with 16 bit binary integer 



FBDA 


2 1 0000 


FBDD 


54 


FBDE 


5D 



Id h 1 . 
Id d.h 
Id e, 1 



;preset result 



m 
00 
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> 

a* 
a. 

m 



3459 
3460 
3461 
3462 
3463 
3464 
3465 
3466 
3467 
346B 
3469 
3470 
. 3471 
3472 

34 7 3 
3474 
3475 
3476 
3477 
3478 
3479 
3400 
3481 
3482 
3483 
3484 
3485 
3486 
3487 
3488 
3489 
3490 
3491 
3492 
3493 
3494 
3495 
3496 
3497 
3498 
3499 
3500 
3501 
3502 
3503 
3504 
3505 
3506 
3507 
3508 
3509 
3510 
351 1 
3512 
3513 

35 V4 



FBDF 


29 




FBEO 


• 29 




FBE1 


29 




FBE2 


29 




FBE3 


19 




FBE4 


FD 


7E 00 


FBE7 


4F- 




FBE8 


FD 


23 


FBEA 


CD 


FBF3 


FBED 


5F 




FBEE 


30 


EF 


FBFO 


79 




FBF1 


B7 




FBF2 


C9 





FBF3 


D6 


30 


FBF5 


D8 




FBF6 


FE 


OA 


FBF8 


3F 




FBF9 


DO 




FBFA 


D6 


07 


FBFC , 


FE 


OA 


FBFE 


D8 




FBFF 


FE 


10 


FC0 1 


3F 




FC02 


C9 




FC03 


F5 




FC04 


IF 




FC05 


IF 




FC06 


IF 




FC07 


IF 




FC08 


CD 


FCOC 


FCOB 


F1 




FCOC 


E6 


OF 


FCOE 


C6 


90 


FC10 


2 7 




FC1 1 


CE 


40 


FC13 


27 




FC14 


18 


OA 


FC16 


7C 




FC17 


CD 


FC03 


FC1A 


7D 




FC1B 


CD 


FC03 



FC1E 

FC2C 



3E 20 
C3 FOOC 



gnuml : 



gnum'3 : 



add 

add 

add 

add 

add 

Id 

Id 

inc 

cal 1 

Id 

jr 

Id 

or 

ret 

hexbin - 



hexbin : 



put2hx: 



putnib : 



put4hs : 
put 2hs : 

space : 
output : 



h 1 , h I 
h 1 , h J 

h 1 , h I 
hi ,de 
a, (iy+0) 
c , a 

hexb in 

e , a 

nc .gnuml 

a , c 

a 



;multip1y result by 16 



jappend next digit 

• f get next character from line buffer 

jadvance buffer address 

jconvert one ascii hex to binary 



jreturn first non hex digit 



sub 

ret 

cp 

ccf 

ret 

sub 

cp 

ret 

cp 

ccf 

ret 

push 

rra 

rra 

rra 

rra 

cal 1 

pop 

and 

add 

daa 

adc 

daa 

jr 

Id 

cal 1 
Id 
cal 1 

space - 

Id 

JP 
dmpf mt 



convert hex to binary. 
0' 



c 
10 

nc 

7 

10 

c 

16 



af 



putnib 

af 

00001 1 1 lb 

a,90h 

a,40h 

output 

a.h 

put2hx 
a. 1 
put2hx 

output space . 

a,' ' 

conout 



;fall through to output space 
jdisplay character 



- Dump Command Output Formatter. 



m 
CD 



Ba I cones Operating System for 
Console support tontines 
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3515 
3516 
35 17 
3518 
3519 
3520 
3521 
3522 
35 23 
3524 
3525 
35 2 6 
3527 
3528 
3529 
3530 
3531 

353 2 
3533 
3534 
3535 
3536 
3537 
3538 
3539 
3540 

354 1 
3542 
3543 
3544 
3545 
3546 
3547 
3548 
3549 
3550 
3551 
3552 
3553 
3554 
3555 
3556 
3557 
3558 
3559 
3560 
3561 
3562 
3563 
3564 
3565 
3566 
3567 
3568 



FC23 
FC24 
FC25 



FC54 



A 5 
CO 
18 F7 



dmpf mt j 



FC27 


CD 


F009 


FC2A 


FE 


IE 


FC2C 


Cti 




FC2D 


CD 


FOOC 


FC30 


FE 


61 


FC32 


D8 




FC33 


06 


20 


FC35 


C9 





echo : 



FC36 


CD 


FC3D 


FC39 


OD 


OA 04 


FC3C 


C9 





FC3D 


E3 




FC3E 


7E 




FC3F 


23 




FC40 


E3 




FC41 


FE 


04 


FC43 


C8 




FC44 


CD 


FOOC 


FC47 


18 


F4 



crlf : 



pnext : 



FC49 


F.B 


FC4A 


B7 


FC4B 


ED 


FC4D 


EB 


FC4E 


D5 


FC4F 


50 


FC50 


59 


FC5 1 


CI 


FC52 


03 


FC53 


C9 



52 



C9 



and 1 
ret nz 
jr space 



; check address boundry 
;if not on boundry 
;skip one column 



echo 



read and echo console character. 



Echo inputs one character from the console 
device, prints it on the console output and 
then returns it in the A register 1n upper case. 



; input a character and echo it 
;do not echo help key 



cal 1 


con in 


cp 


He 1 pkey 


ret 


2 


cal 1 


conout 


cp 


' a ' 


ret 


c 


sub 


'a'-'A' 


ret 





; i f not 1 ower case 

jconvert lower case to upper case 



crlf - 

cal 1 
defb 
ret 

pnex t 



carriage return- 1 inefeed. 

pnext ;print next message 

cr , 1 f , eot 

- print message after call. 

;set message address 

;set return address 



ex 


(sp).hl 


Id 


a, (hi) 


inc 


hi 


ex 


(sp) .hi 


cp 


eot 


ret 


z 


cal 1 


conout 


jr 


pnext 



if options and (o.move or o.verf) 
set block address for move and verify. 



bl ocad: 


ex 


de.hl 




or. 


a 




sbc 


hi ,de 




ex 


de.hl 




push 


de 




Id 


d.b 




Id 


e , c 




pop 


be 




i nc 


be 




ret 






endi f 






ret 





;clear carry 
;get diffrence between 
;hl & de for bytecount 
;exchange de.be 



;get count* 1 into be 



subttl Transient Command Area 
page 



m 

00 

O 


Ba.1 cones 


Opera t in 


a s> 


/stein for 


Trans i tint 


ConuudnU 


Ar< 


^a 




3569 










3570 


FC55 








3571 










3572 


0C55" 








3573 










3574 










3575 


FC55 


00 






3576 


FC56 


CD 


F293 




3577 


FC59 


00 






3570 


FC5A 


20 


4A 




3579 


FC5C 


00 






3500 


FC50 


2 1 


F091 




358 1 


FC6U 


CB 


47 




35B2 


FC62 


20 


24 




3503 


FC64 


F3 






3504 


FC65 


3E 


CF 




3505 


FC67 


D3 


ID 




3506 


FC69 


3E 


30 




3507 


FC6B 


03 


ID 




3500 


FC6D 


03 


1C 




3509 


FC6F 


3E 


DO 




3590 


FC71 


03 


10 




3591 


FC73 


10 


FE 




3592 


FC75 


DB 


1C 




3593 


FC77 


CB 


67 




, 3594 


FC79 


3E 


02 




; 3595 


FC7B 


20 


04 




3596 


FC70 


CB 


E6 




3597 


FC7F 


3E 


03 




3590 


FC0 1 


03 


10 




3599 


FC03 


32 


FF54 




3600 


FC06 


10 


IE 




3601 


FCOO 


CB 


F6 




360 2 


FCOA 


2 1 


F700 




3603 


FCOD 


1 1 


F470 




3604 


FC90 


1 


0300 




3605 


FC93 


ED 


BO 




3606 


FC95 


E6 


02 




3607 


FC97 


20 


OD 




3600 


FC99 


21 


F361 




3609 


FC9C 


06 


00 




3610 


FC9E 


7E 






361 1 


FC9F 


EE 


04 




3612 


FCA1 


77 






3613 


FCA2 


23 






3614 


FCA3 


23 






3615 


FCA4 


10 


FO 




3616 










3617 


FCA6 


CO 


FC3D 


> 


3610 


FCA9 


1A 




3619 


FCAA 


IB 


30 


"D 


3620 


FCAC 


30 


32 30 2D 


n> 


362 1 


FCBO 


49 


49 20 76 


3 


3622 


FCB4 


20 




Q- 


3623 


FCB5 


34 


2E 30 3 1 
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c 1 oc def I $ 

overlay start 

c&seg 
;; signon - Announce System Ready. 



s ign4 ; 



;estab1ish overlay execution address 



s ignon: 


ex 


af ,af ' 




cal 1 


crtof f 




ex 


af ,af * 




jr 


z , sign4 




ex 


af.af 




Id 


hi , conf g 




bi t 


O.a 




jr 


z , s ign3 




di 






Id 


a, U0Q11 1 lb 




out 


(sysct 1 ) ,a 




Id 


a, 001 1 1000b 




out 


(sysct 1 ) , a 




out 


(syspio) , a 




Id 


a.OdOh 




out 


(wd1797) ,a 


s ign 1 : 


d jnz 


signl 




in 


a , (syspio) 




bit 


c . f i ve ,a 




Id 


a, 2 




jr 


nz , s ign2 




set 


c . f i ve , (hi ) 




Id 


a, 3 


s ign 2 : 


out 


(wd1797) ,a 




Id 


(steprt ) , a 




jr 


s ign4 


s ign3 : 


set 


c . sas i , (h 1 ) 




Id 


hi .Rigdpb 




Id 


de ,dpb5s 




Id 


be , Sas idl 




idir 






and 


2 




jr 


nz , sign4 




Id 


hi ,Sel tab+1 




Id 


b,0 


s ign3a : 


Id 


a. (hi) 




xor 


4 




Id 


(hi), a 




inc 


hi 




inc 


hi 




d jnz 


sign3a 



ca 1 1 pnex t 

defb clrs 

def b esc , '0 ' 

defm '020-11 v 



rev/ 100+ '0' 



; disable rom/rain 

;if Rxl904 loaded disk driver 

;get syspio data 

.point to configuration byte 

;if SASI interface present 

;set Pio B in Bit Mode 

;turn around dO , 1 , 2 

;drop all drive selects 
; reset wd- 1797.-02 

;wait 1797 not busy 



jpreset 10 msec step rate 
; i f not 5" 

;set long step 
jrestore / unload heads 



;set Sasi card installed 

;set address of rigid dpb 

; set address of 5.25" floppy dpb 

;set sasi driver length 

;Move driver down 

; i f not A/E swap 



X 

m 



;clear screen 

;set low light as default mode 



(rev mod 1 00 ) / 1 0+ ' ' , ( rev mod 10)+ '0' 
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~a 

^ 362 ^ FC & 9 20 IP * c 20 defm ' ',31,28;' 1982 Xerox Corp' 

Q- 3625 
-• 3626 

* 3627 

m 3628 

3629 FCCC OD OA defb cr.lf 



FCB9 


20 


IF 


1C 


20 


FCBD 


31 


39 


38 


32 


FCC1 


20 


58 


65' 


72 


FCC5 


6F 


78 


20 


43 


FCC9 


6F 


7 2 


70 




FCCC 


OD 


OA 






FCCE 


OA 








FCCF 


4C 


20 


2D 


20 


FCD3 


4C 


6F 


61 


64 


FCC)/ 


20 


53 


79 


73 


FCDB 


74 


65 


6D 




FCDE 


OD 


OA 






FCEO 


48 


20 


2D 


20 


FCE4 


48 


6F 


73 


74 


FCEU 


20 


54 


65 


72 


FCEC 


6D 


69 


6E 


61 


FCFQ 


6C 








FCF1 


OD 


OA 






FCF3 


54 


20 


2D 


20 


FCF7 


54 


79 


70 


65 


FCFB 


77 


72 


69 


74 


FCFF 


65 


72 






FD0.1 


OD 


OA 







FD05 


CD 


F006 


FD08 


CA 


F003 


FDOB 


CD 


F009 


FDOE 


18 


F5 



defb 


cr 


defb 


If 


defm 


'L 



3630 

3631 FCCF 4C 20 2D 20 • defm 'L - Load System' 

363 2 

3633 

3634 

3635 FCDE OD OA defb cr.lf 

3636 

363 7 If options and o.ierm 

3638 FCEO 48 20 2D 20 defm 'H - Host Terminal 

3639 

3640 

3641 

3642 

3643 FCF1 OD OA defb cr.lf 

3644 end if 

3645 if options and o.type 

3646 FCF3 54 20 2D 20 defm 'T - Typewriter' 
3647 
3648 
3649 
3650 
3651 

3652 FD03 07 04 
365 3 

3654 FD05 CD F006 eatkey: 

3655 FDOB CA F003 jp z.warm ;go enter monitor 
3656 
3657 
3658 
3659 
3660 



defb 


cr, if 


endif 




defb 


7, eat 


cal 1 


const 


JP 


z , warm 


cal 1 


conin 


jr 


eatkey 


subt t 1 


I/O by 


page 





in 

00 



m 

00 



Balcones. Operating System for the XEROX 820-11 
I/O byte Drivers 



> 

a> 

3 

a 
x' 
m 



3661 
3662 
3663 
3664 
3665 
3666 
3667 
3668 
3669 
3670 

367 1 
3672 
3673 
3674 
3675 
3676 
3677 
3678 
3679 
3680 

368 1 
3682 
3683 
3684 
3685 
3686 
3687 
3688 
3689 
3690 
3691 
3692 
3693 
3694 
3695 
3696 
3697 
3698 

•3699 
3700 
3701 
3702 
3703 
3704 
3705 
3706 
3707 
3708 
3709 
3710 
371 1 
3712 
3713 
3714 
3715 



OOBB' 



F770 


DB 


06 


F772 


OF 




F773 


9F 




F774 


C9 





F7 75 


DB. 


06 


F777 


OF 




F778 


30 


FB 


F77A 


DB 


04 


F77C 


C3 


F0E2 



F77F 


CD 


F788 


F782 


28 


FB 


F784 


79 




F7B5 


D3 


04 


F7G7 


C9 





F788 


DB 


06 


F78A 


E6 


04 


F78C 


CO 




F78D 


F6 


FF 


F78F 


C9 





F790 


3A 0003 


F793 


E6 03 


F795 


C9 



F796 


CD 


F790 


F799 


28 


E4 


F79B 


3D 




F79C 


CA 


F2FE 


F79F 


79 




F7A0 


C3 


F0F8 



conn rip : 



comput 



comots ; 



coni ob : 
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overlay iobdvr . 
c&seg 

. dephase < 

.phase iobloc 

comins - Communications input status. 

in a, (si ocpa) 

rrca 

sbc a, a 

ret 

cominp - Communications input data. 

in a , (s i ocpa ) 

rrca 

j r nc , cominp 

in a , (siodpa) 

jp kbmask 

coinout - Communications output. 

cal 1 comots 

jr z.comout 

Id a , c 

out (s iodpa) , a 

ret 

comots - Communications output status. 

in a , (s iocpa) 

and 4 

ret z 

or -1 

ret 

coniob - get console i/o byte. 

Id a , ( iobyte) 
and 00000011b 
ret 

iocono - Console output through iobyte. 

ca 1 1 coni ob 

jr z.comout 

dec a 

jp z , fastest 

Id a.c 

jp sioout 

iocons - Console status through iobyte. 
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5 37 16 F7A3 CD F790 iocons: call coniob 



F 7 A 3 


CD 


F790 


F7A6 


28 


ca 


F7A8 


3D 




F7A9 


CA 


FOCD 


F7AC 


C3 


F0E5 



37 17 F7A6 28 C8 jr z.comins 

3718 F7A8 3D dec a 



Q. 

x 37 19 F7A9 CA FOCD jp z.kbdst 

m 3720 F7AC C3 F0E5 jp siost 

J3721 

3722 ;; ioconi - Console input through iobyte. 

3723 ; 

3724 F7AF CD F790 ioconi: call coniob 
37 25 F7B2 28 CI jr z.cominp 
3726 F7B4 3D dec a 



F7AF 


CD 


F790 


F7B2 


28 


CI 


F7B4 


3D 




F7B5 


CA 


F0D8 


F7B8 


C3 


FOFO 



F7CC 


.i A 


0003 


F7CF 


E6 


CO 


F7D1 


28 


B5 


F7D3 


EA 


F7F4 


F7D6 


FA 


F105 


F7D9 


F6 


FF 


F7DB 


C9 





3727 F7B5 CA F0D8 jp z.kbdin 

3728 F7B8 C3 FOFO jp sioin 
3729 

3730 ;; lstout - List output through iobyte. 

3731 ; 

3732 F7BB 3A 0003 iolist: Id a, (iobyte) 

3733 F7BE E6 CO and UOOOOOOb 

3734 F7C0 28 BD jr z.comout 

3735 F7C2 EA F7DC jp pe.pioout 

3736 F7C5 79 Id a,c 

3737 F7C6 FA F0F8 jp m.sioout 

3738 F7C9 C3 F2FE jp fastcrt 
3739 

3740 ;; List output through iobyte 

3741 ; 

3742 F7CC 3A 0003 iolsts: 
3743 
3744 
3745 
3746 
3747 
3748 
3749 

3750 ; ; 

3751 ; 

3752 F7DC CD F7F4 pioout: 

3753 F7DF 28 FB jr z, pioout ;if printer not ready 
3754 

3755 F7E2 D3 08 out (gpioda).a ;load character data 

3756 

3757 F7E6 CB 97 res p.strb.a jassert strobe 

3758 

3759 F7EA CB D7 set p.strb.a ;release stobe 

3760 

3761 F7EE 3E OA Id a. 10 ; de 1 ay for ACK 

3762 F7F0 3D piol; 

3763 F7F1 20 FD 

3764 F7F3 C9 
3765 

3766 ; ; 

3767 ; 

3768 F7F4 DB OA piosto: in a, (gpiodb) ;read status 

3769 F7F6 2F 
m 3770 F7F7 E6 10 
00 3771 F7F9 CO ret z ;if ready 



Id 


a . ( iobyte) 


and 


1 1000000b 


jr 


z , cornots 


JP 


pe , piosto 


JP 


m, siordy 


or 


-1 


ret 




Para 1 1 e 


1 Output Driver 


cal 1 


piosto 


jr 


z .pioout 


Id 


a ,c 


out 


(gpioda) ,a 


in 


a , (gpiodb) 


res 


p. s trb . a 


out 


(gpiodb) ,a 


set 


p.strb.a 


out 


(gpiodb) , a 


Id 


a. 10 


dec 


a 


jr 


nz.piol 


ret 




Paral 1 e 


1 Output Status 


in 


a, (gpiodb) 


cpl 




and 


1 shl p.rdyo 


ret 


z 



m Balcon.es Operating System for the XEROX 820-11 MACRO-80 3.44 09-Dec~3 1 
0? I/O byte Drivers 

3772 F7FA F6 FF or -1 

3773 F7FC (9 ret 
3774 

3775 OOBD ioDcivs equ $-iobloc 

3776 

3777 .dephase 

377B .phase cloc+iobdvs 

3779 

3780 subttl Transient Command Processors 

3781 page 



> 

m 

D 

x* 

m 



> 

3 

Q 
fD 

Q- 
X* 

rn 



m 

00 



Balcones Operating System for the XEROX 820-11 
Transient Command Processors 

3782 
3783 

3 784 ; 

3785 ; 

3786 

3787 0148' + 

3788 
3789 

3790 FC58 7E boot 1 

379 1 
3792 
3793 
3794 
3795 
3796 
3797 
3798 
3799 
i 3800 
3801 FC69 4F boot2: 

3802 
3803 
3804 
3805 
3806 
3807 
3808 
3809 
3810 
38 1 1 
38 12 
3813 
3814 
3815 
3816 
38 17 
3818 
3819 
3820 
3821 
3822 
3823 
3824 
3825 
3826 
3827 
3828 
3829 
3830 
3831 
383 2 
3833 

3834 FCA3 21 ED80 boot3: 

3835 
3836 
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if 



options and o.ddvr 
disk boot loader command -- 



FC55 


2 1 


FF5D 


FC58 


7E 




FC59 


2C 




FC5A 


06 


OD 


FC5C 


28 


OB 


FC5E 


FE 


13 


FC60 


28 


F6 


FC62 


06 


34 


FC64 


08 




FC65 


FE 


10 


FC67 


3F 




FC68 


08 




FC69 


4F 




FC6A 


Cti 


41 


FC6C 


32 


FCDD 


FC6F 


2E 


00 


FC7 1 


C5 




FC72 


E5 




FC73 


CD 


FCEE 


FC76 


21 


FCD9 


FC79 


E5 




FC7A 


OE 


00 


FC7C 


CD 


FA17 


FC7F 


CO 




FC80 


3E 


FF 


FC82 


12 




FC83 


1 1 


000A 


FCBb 


19 




FC87 


5E 




FC88 


2 3 




FC89 


56 




FC8A 


CD 


FA3C 


FCBD 


OE 


01 


FC8F 


1A 




FC90 


3 2 


FCD4 


FC93 


B7 




FC94 


20 


OD 


FC96 


21 


OOOD 


FC99 


19 




FC9A 


4E 




FC9b 


23 




FC9C 


46 




FC90 


OB 




FC9E 


FD 


43 FA1 


FCA2 


4F 




FCA3 


:.' 1 


ED80 


FCAb 


CD 


FA48 


FCA9 


CO 





over 1 ay 


boot 


c&seg 




Id 


hi , 1 inbuf+1 


Id 


a. (hi) 


inc 


1 


sub 


cr 


jr 


z,boot2 


cp 


' ' -cr 


jr 


z .boot 1 


sub 


' A ' -cr 


ret 


c 


cp 


16 


ccf 




ret 


c 


Id 


c , a 


add 


a, 'A' 


Id 


(bootd) , a 


Id 


1 .0 


push 


be 


push 


hi 


cal 1 


swap 


Id 


hi .booter 


push 


hi 


Id 


c.O 


cal 1 


se lect 


ret 


nz 


Id 


a,-1 


Id 


(de) .a 


Id 


de, 10 


add 


hi ,de 


Id 


e,(hl) 


inc 


hi 


Id 


d,(h1 ) 


cal 1 


home 


Id 


c,1 


Id 


a, (de) 


Id 


(boots) , a 


or 


a 


jr 


nz ,boot3 


Id 


h 1 , 1 3 


add 


hi >de 


Id 


c.(hl) 


inc 


hi 


Id 


b, (hi) 


dec 


be 


Id 


(phy trk) ,bc 


Id / 


c , a 


Id 


hi ,bootbf 


cal 1 


read 


ret 


nz 



;scan command line 

;if no parameter, boot from A: 
;skip leading blanks 
; i f inval id drive 



; i f bad drive 

;set boot drive selected 

;set up error message 
; s e t A : 



jswitch boot drive with A: 
;set boot error return 

jthen boot from A: 

;if drive not configured or density error 

;set dpb address offset within dph 
;set dpb address 



;set sector- 1 

;get low sectors per track 

; inform boot loader 

; i f not rigid 

;set reserved track offset within dpb 

;get reserved tracks 



;point behind directory 
; do imp 1 i ed seek 
;set sector zero for rigid 
,-point to boot load buffer 
; read cold start loader 
; i f read error 



m 
oo 
en 



> 

T3 

(t> 
3 

a. 
x' 
m 



FCAA 


1 1 


OOFF 


FCAD 


21 


EDFF 


FCBO 


1 


0080 


FCB3 


ED 


BB 


FCB5 


13 




FCB6 


1A 




FCB7 


FE 


E5 


FCB9 


C8 




FCBA 


21 


FOOO 


FCBD 


22 


F004 


FCCO 


CD 


FD05 


FCC3 


21 


1 12B 


FCC 6 


1 1 


F770 


FCC9 


01 


Q08D 


FCCC 


AF 




FCCD 


CD 


F2A3 


FCDO 


2 1 


0080 


FCD3 


3E 


00 


FCD4 






FCD5 


1 1 


FAOE 


FCDB 


E9 
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3838 
3839 
3840 
3841 
3842 
3843 
3844 
3845 
3846 
3847 
3848 
3849 
3850 
3851 
3852 
3853 
3854 
3855 
3856 
3857 
3858 
3859 
3860 
3861 
3862 
3863 
3864 
3865 
3866 
3867 
3868 
3869 
3870 
3871 
3872 
3873 
3874 
3875 
3876 
3877 
3878 
3679 
3880 
388 1 
3882 
3883 
3884 
3885 
3886 
3887 
3888 
3889 
3890 
3891 
3892 



the XEROX 820-11 MACRO-80 3.44 



09-Dec-81 



FCD9 


CD 


FC3D 




FCDC 


07 








FCDD 


64 


3A 


20 


4C 


FCE1 


6F 


61 


64 


20 


FCE5 


65 


72 


72 


6F 


FCE9 


72 


2E 






FCEB 


04 








FCEC 


C1 








FCED 


El 









FCEE 


06 


FCFO 


60 


FCF1 


1 1 


FCF4 


29 


FCF5 


19 


FCF6 


EB 


FCF7 


09 


FCF8 


09 


FCF9 


6 


FCFB 


4E 


FCFC 


1A 


FCFD 


77 


FCFE 


79 


FCFF 


1-2 


FDOO 


23 


FD0 1 


13 


FD02 


10 



00 



F360 



02 





Id 


de.boot ld+128-1 




Id 


hi ,bootbf+128-1 




Id. 


be, 128 




Iddr 






i nc 


de 




Id 


a, (de) 




cp 


0e5h 




ret 


z 




Id 


hi ,Moni t r 




Id 


( warm* 1 ) .hi 




cal 1 


lep 




Id 


hi , iobdvr 




Id 


de , iobl oc 




Id 


be , iobdvs 




xor 


a 




cal I 


crt idi r 




Id 


hi .boot id 




Id 


a.O 


ta o o t s 


equ 


$-1 




Id 


de , phyemd 




JP 


(hi) 


; ; 


Booter 


- Boot Error Proc 


booter : 


cal 1 


pnext 




defb 


7 


bootd : 


def m 


' d: Load error . ' 



swap: 



swapl ; 



;set boot loader address 

jniove front half of boot loader to 80h 

jverify instructions read in 

;if disk has no system d 

;set warm start to reload monitor 
; 1 oad configuration parameters 
; load iobyte driver 



;set start address 

jsectors per track 

;tell boot loader from whence he came 

;execute Boot Loader with return to booter 



defb 


eot 


POP 


be 


pop 


hi 



;switch drives back 



swap - swap logical drives. 

Entry: C = first drive index, 0-15 
L = second drive index, 0-15 



F7 



Id 


b,0 


Id 


h,b 


Id 


de , se 1 tab 


add 


hi .hi 


add 


hl.de 


ex 


de.hl 


add 


hi .be 


add 


hi ,bc 


Id 


b.2 


Id 


e.(hl ) 


Id 


a. (de) 


Id 


(hi), a 


Id 


a , c 


Id 


( de ) . a 


inc 


hi 


inc 


de' 


d jnz 


swapl 



;elear upper indices 

;set select table address 

;set second address to DE, get seltab to HL 
;set first address to h|L 
;swap two bytes 



;if swap not complete 



> 

"O 

rt> 
r> 
Q- 
x' 
m 
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m 

CO 



3093 
3094 
3095 
3096 
3097 
3090 
3099 
3900 
390 1 
3902 
3903 
3904 
3905 
3906 
3907 
3900 
3909 
3910 
39 1 1 
3912 
39 13 
39 14 
3915 
39 16 
39 17 
39 10 
3919 
3920 
39 2 1 
3922 
3923 
3924 
3925 
3926 
3927 
3928 
3929 
3930 
3931 
3932 
3933 
3934 
3935 
3936 
3937 
3930 
3939 
3940 
3941 
3942 
3943 
3944 
3945 
3946 
3947 
3940 



FD04 



C9 



FD05 


3E 


01 


FD07 


3 2 


0003 


FDOA 


3A 


FCD4 


FOOD 


B7 




FDOE 


OE 


20 


FD10 


21 


EDOO 


FD13 


20 


00 


FD15 


FE 


IB 


FD17 


DO 




FD10 


OE 


03 


FD1A 


2 1 


EEOO 


FD1D 


CD 


FA40 


FD20 


CO 




FD2 1 


3 A 


EEOO 


FD24 


06 


E5 


FD26 


CO 




FD27 


3 A 


EE7B 


FD2A 


B7 




FD2B 


20 


03 


FD2D 


FE 


C9 


FD2F 


CO 




FD30 


32 


Fl 15 


FD33 


3A 


EE60 


FD36 


32 


FF54 


FD39 


3A 


EE5F 


FD3C 


3 2 


FD49 


FD3F 


3A 


EE62 


FD42 


32 


FD4B 


FD45 


CD 


FC3D 


FD40 


IB 




FD49 


00 




FD4A 


IB 




FD4B 


00 




FD4C 


04 




FD4D 


2 1 


EE63 


FD50 


3E 


02 


FD52 


46 




FD53 


23 




FD54 


4E 




FD5!> 


2 3 




FD56 


ED 


B3 


FD50 


3D 




FD59 


20 


F7 


FD5B 


3A 


EE7D 


FD5E 


03 


00 


FD60 


3 A 


EE7E 


FD63 


D3 


OC 


FD65 


3A 


EE77 


FD60 


3 2 


F10C 


FD60 


3A 


EE79 


FD6E 


32 


F10E 


FD7 1 


3 A 


EE7F 



ret 



1 cp 



load configuration parameters. 

jdefault i/o byte to CRT; and LPT: 
;get boot diskette type 



;use boot loader buffer 

;if rigid, use system track, sector 32 



1 cp: 


Id 


a, 10000001b 




Id 


( ioby te) ,a 




Id 


a , (boots) 




or 


a 




Id 


c.32 




Id 


hi .bootbf 




jr 


z , Icpl 




cp 


26+1 




ret 


c 




Id 


c,3 




Id 


hi ,bootbf+128 


Icpl : 


cal 1 


read 




ret 


nz 




Id 


a, (bootbf+120) 




sub 


Qe5h 




ret 


Z 




Id 


a , (z . xonp) 




or 


a 




jr 


2. Icp2 




cp 


0c9h 




ret 


nz 


1cp2: 


Id 


(Xonenb) , a 




Id 


a , (z . stpr ) 




Id 


(steprt ) , a 




Id 


a , (2 . sera) 




Id 


( 1 cpa) , a 




Id 


a , (2 . keym) 




Id 


( 1 cpb) , a 




cal 1 


pnext 




defb 


esc 


1 cpa : 


defb 







defb 


esc 


1 cpb : 


defb 







defb 


eot 




Id 


h 1 , 2 . s i oA 




Id 


a, 2 


1cp3: 


Id 


b,(hl) 




inc 


hi 




Id 


c,(hl) 




inc 


hi 




ot i r 






dec 


a 




jr 


nz , 1 cp3 




Id 


a , ( 2 . baua) 




out 


(bauda) , a 




Id 


a , (z . baub) 




out 


(baudb) ,a 




Id 


a , ( z . siom) 




Id 


( s i omsk ) , a 




Id 


a , (z.siov) 




Id 


(siova 1 ) ,a 




Id 


a , (2 . i obt ) 



;no parameters from single density boots 

;dd configuration comes from track 0, sector 3 

;use second half of boot loader buffer 

;if can't read configuration 



jconfigure Xon-Xoff 



jconf igure step rate 

;conf igure screen attribute 

; configure keyboard mask 



configure Sio channels 
get number of bytes 
get port address 

; configure channel A bit rate 
;configure channel B bit rate 
;conf igure printer ready mask 
jconfigure printer ready value 
jconfigure I/O byte 



rn 

00 

00 



Balcones Operating System for the XEROX 820-11 
Transient Commaiui Processors 



MACRO-BO 3.44 



09-Dec-Bl 



> 

a* 

Q- 

x' 

m 



3949 
3950 
3951 
3952 
3953 
3954 
3955 
3956 
3957 
3958 
3959 
3960 
3961 
3962 
3963 
3964 
3965 
3966 
3967 
3968 
3969 
3970 
397 1 
3972 
3973 
3974 
3975 
3976 
3977 
3978 
3979 
3980 
3981 
3982 
3983 
3984 
3985 
3986 
3987 
3988 
3989 
3990 
3991 
3992 
3993 
3994 
3995 
3996 
3997 
3998 
3999 
4000 
4001 
4002 
4003 
4004 



FD74 
FD77 



026B' 



0282' 



02A£ 



32 0003 
C9 



boot 



FC55 


B7 




FC56 


37 




FC57 


ca 




FC58 


E5 




FC59 


DD 


E1 


FC5B 


EB 




FC5C 


7 




FC5D 


50 




FC5E 


5D 




FC5F 


ED 


4B FFBB 


FC63 


CD 


FAD6 


FC66 


CD 


FC1B 


FC69 


C3 


FC16 



FC55 


3D 




FC56 


28 


Ob 


FC50 


3D 




FC59 


28 


08 


FC5B 


. 2 A 


FFBD 


FC5E 


1 1 


0010 


FC61 


18 


OE 


FC63 


EB 




FC64 


ED 


52 


FC66 


D8 




FC67 


06 


04 


FC69 


CB 


3C 


FC6B 


CB 


ID 


FC6D 


10 


FA 


FC6F 


23 




FC70 


EB 




FC71 


CD 


FB8F 


FC74 


2 2 


FFBD 


FC77 


C9 





Id ( ioby te) , a 

ret 

e 1 se 

equ what 

end if 

-'- go to to memory location command 



over 1 ay 


goto 


c&seg 




or 


a 


scf 




ret 


z 


push 


hi 


pop 


ix 


ex 


de.hl 


Id 


a, 1 


Id 


d,b 


Id 


e .l 


Id 


be , (param4) 


cal 1 


jpix 


cal 1 


put2hs 


JP 


put4hs 





overl ay 


memdmp 




c&seg 






dec 


a 




jr 


z ,mdmp2 




dec 


a 




jr 


z ,mdmp3 


mdmpl : 


Id 


hi , ( last) 


mdmp2 : 


Id 


de, 16 




jr 


mdmp3b 


mdmp3 : 


ex 


de.hl 




sbc 


hi ,de 




ret 


c 




Id 


b,4 


mdmp3a : 


sr 1 

rr 


h 
1 




d jnz 


mdmp3a 




inc 


hi 




ex 


de.hl 


mdmp3b: 


cal 1 


dump 




Id 


( last ) ,hl 




ret 





;if no parameters 

;set goto address 

;1d ix.hl 

;set second arg to HL 

; and A 

;set third arg to DE 

;set fourth arg to BC 

; print A reg 



memory dump command -- 



;check parameter count 



;derive bytecount for dump range 
;if addresses backwards 

jdivide bytecount by 16 



; dump de*16 bytes strting at hi 



-- memory examine command -- 

over 1 ay vi ew 
c&seg 



> 


Bdlcones 


Operat in 


ij System 


"O 


Trans i en t 


Command 


Process 


13 




I 






a. 


4005 


FC55 


CD 


FB22 


4006 


FC58 


CD 


FC27 


4007 


FC56 


FE 


OD 


X 


4008 


FC5D 


28 


2F 


rn 


4009 


FC5F 


FE 


2D 




4010 


FC61 


28 


2D 




401 1 


FC63 


FE 


22 




4012 


FC65 


20 


08 




40 13 


FC67 


CD 


F009 




4014 


FC6A 


CD 


FOOC 




4015 


FC6D 


18 


IB 




4016 


FC6F 


CD 


FBF3 




4017 


FC72 


3F 






4018 


FC73 


DO 






4019 


FC74 


4F 






4020 


FC75 


87 






402 1 


FC76 


87 






4022 


FC77 


87 






4023 


FC70 


87 






4024 


FC79 


47 






4025 


FC7A 


CD 


FC27 




4026 


FC7D 


D6 


OD 




4027 


FC7F 


28 


08 




4020 


FC81 


C6 


OD 




4029 


FC83 


CD 


FBF3 




4030 


FC86 


3F 






4031 


FC87 


DO 






4032 


FCB8 


48 






4033 


FCB9 


8 1 






4034 


FCOA 


77 






4035 


FCOB 


CD 


FBOE 




4036 


FCBE 


23 






4037 


FCBF 


2 3 






4038 


FC90 


20 






4039 


FC9 1 


18 


C2 



m 
oo 



4040 
404 1 
4042 
4043 
4044 
4045 
4046 

404 7 
4048 
4049 
4050 
4051 
4052 
4053 
4054 
4055 
4056 

405 7 
4058 
4059 
4060 



02E3' 



FC55 


B7 




FC56 


37 




FC57 


C8 




FC58 


3D 




FC59 


20 


02 


FC5B 


IE 


01 


FC5D 


CB 


43 


FC5F 


OE 


00 


FC61 


28 


02 


FC63 


OE 


OC 


FC65 


ED 


69 


FC67 


AF 
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MACRO- 
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v i ewO : 


cal 1 


mdata 






cal 1 


echo 






cp 


cr 






jr 


z , view4 






cp 








jr 


z , vi ew5 






cp 


/ •• , 






jr 


nz.viewl 






cal 1 


conin 






cal 1 


conout 






jr 


view3 




view] : 


cal 1 
ccf 


hexbin 






ret 


nc 






Id 


c ,a 






add 


a ,a 






add 


a, a 






add 


a, a 






add 


a , a 






Id 


b,a 






cal 1 


echo 






sub 


cr 






jr 


z , view2 






add 


a, cr 






cal 1 


hexbin 






ccf 








ret 


nc 






Id 


c,b 




view2 : 


add 


a ,c 




view3 : 


Id 


( h 1 ) , a 






cal 1 


check 




v i ew4 : 


inc 


hi 






inc 


hi 




v i ew5 : 


dec 


hi 






jr 


vi ewO 





if options and o . baud 
-- Baud Rate Command -- 



* B<rate> (channel ) 



jchannel may be 0,1 or A/B 





over 1 a 


y 


baud 




c&seg 








or 




a 




scf 








ret 




z 




dec 




a 




jr. 




nz , baud 




Id 




e, 1 


baud 1 : 


bi t 




0,e 




Id 




c , bauda 




jr 




z ,baud2 




Id 




c , baudb 


baud 2: 


out 




(c),1 




xor 




a 



; i f no parameters 

; i f channel specified 
;set channel 1 (B) 
;check port 
;set communications port 

;set printer port 
;set baud rate 



m 
to 
o 
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> 

T3 

3 
O- 

m 



4061 
4062 
4063 
4064 
4065 
4066 
4067 
4068 
4069 
4070 
4071 
4072 
4073 
4074 
4075 
4076 
4077 
4078 
4079 
4080 

408 1 
4082 
4083 
4084 
4085 
4086 
4087 
4088 
4089 
4090 

409 1 
4092 
4093 
4094 
4095 
4096 
4097 
4098 
4099 
4 100 
4101 
4 102 
4 1 03 
4104 
4 105 
4106 
4107 
4108 
4 109 
41 10 
4111 
41 12 
41 13 
41 14 
41 15 
41 16 



FC68 



02F7 



C9 



FC55 


4/ 




FC56 


3 A 


FF5C 


FC59 


D6 


57 


FC5B 


20 


IE 


FC5D 


BO 




FC5E 


20 


16 


FC60 


4F 




FC61 


CD 


F2FE 


FC64 


23 




FC65 


• 1 1 


001 1 


FC68 


01 


0015 


FC6B 


EB 




FC6C 


AF 




FC6D 


3 2 


FC54 


FC70 


CD 


F2A3 


FC73 


C3 


FC36 


FC76 


3 A 


FC54 


FC79 


B7 




FC7A 


CO 




FC7B 


78 




FC7C 


FE 


04 


FC7E 


3 7 




FC7F 


CO 




FC80 


21 


FFB5 


FC83 


1 1 


FA10 


FC86 


1 


0007 


FC89 


ED 


AQ 


FC8B 


23 




FC8C 


ED 


BO 


FC8E 


05 




FC8F 


CD 


FA51 


FC92 


7D 




FC93 


B4 




FC94 


28 


16 


FC96 


06 


00 


FC98 


3 A 


FF5C 


FC9B 


FE 


57 


FC9D 


28 


01 


FC9F 


04 




FCAO 


CD 


FA51 


FCA3 


2A 


FFBB 



baud 



ret 
e 1 se 
equ 
endi f 



what 



if options and o.disk 

-- disk sector read/write command -- 

* R <unit> <track> <sector> <address> 

* W <unit> <track> <sector> <address> 





overl ay 


dskcmd 




c&seg 






Id 


b,a 




Id 


a , ( 1 inbuf ) 




sub 


'W 




jr 


nz ,dsk 1 




or 


b 




jr 


nz ,dskO 




Id 


c ,a 




cal 1 


Fastcrt 




inc 


hi 




id 


de, 17 




id 


be ,21 




ex 


de.hl 




xor 


a 




Id 


($-25) ,a 




cal 1 


crt ldi r 




JP 


crlf 


dskQ: 


Id 


a, ($-34) 




or 


a 




ret 


nz 


dskl : 


Id 


a,b 




cp 


4 




scf 






ret 


nz 




Id 


hi , paraml 




Id 


de , phydrv 




Id 


be, 3*2+1 




ldi 






inc 


hi 




Idir 






dec 


b 




cal 1 


xqphys 




* Id 


a , 1 




or 


h 




jr 


z .dsker r 




Id 


b.O 




Id 


a , ( 1 inbuf ) 




cp 


'W 




jr 


z,dsk3 




inc 


b 


dsk3: 


cal 1 


xqphys 




Id 


hi , (param4) 



;check parameter count 



;inove parameters to disk command 



; sk ip 'upper uni t 

;set select operation 
.execute physical select 



; if select error 

; preset write command 

;get command 

; if wri te 

;execute driver 



> 

3 
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4117 


411B 


T 4119 


4120 


1 4121 


4122 


4 123 


4124 


4 125 


4 126 


4127 


4 128 


4129 


4 130 


4131 


4132 


4 133 


4134 


4135 


4136 


4137 


4 138 


4 139 


4140 


4141 


4142 


4143 


4144 


4145 


4146 


4147 


4148 


4149 


4150 


4151 


4152 


4 153 


4154 


4155 


4156 


4157 


4158 


4159 


4 160 


4161 


4162 


4163 


4 164 


4 165 


4166 


4167 


4 168 


4 169 


4 170 


4171 


S 4172 



FCA6 


1 1 


0010 


FCA9 


CA 


FB8F 


FCAC 


CO 


FC3D 


FCAF 


44 


73 6B 


FCB3 


45 


72 72 


FCB6 


04 




FCB7 


C9 





035A' 



0381 ' 
FC55 



20 



dskerr: 



dskcmd 



FC55 


3D 




FC56 


37 




FC57 


CO 




FC58 


40 




FC59 


44 




FC5A 


CD 


FC36 


FC5D 


79 




FC5E 


CD 


FC1B 


FC61 


ED 


78 


FC63 


CD 


FC1B 


FC66 


CD 


F009 


FC69 


FE 


20 


FC6B 


28 


F4 


FC6D 


FE 


OD 


FC6F 


28 


06 


FC71 


FE 


2D 


FC73 


28 


04 


FC75 


B7 




FC76 


C9 




FC77 


■03 




FC78 


03 




FC79 


OB 




FC7A 


18 


DE 



Id 
JP 

cal 1 
def in 

defb 
ret 
e 1 se 
equ 
endif 

if 



de, 16 
z , dump 

pnex t 
'Dsk Err' 

eot 



;(not disk options) 
what 



options and o. inpc 



;assume 256-byte sector 

;dump disk read buffer if no error 



-- read input port command 
* I <16-bit port address> 





over 1 ay 


incmd 




c&seg 






dec 


a 




scf 






ret 


nz 




Id 


c, \ 




Id 


b.h 


inl : 


cal 1 


crlf 




Id 


a.c 




cal 1 


put2hs 


in2: 


in / 


a.(c) 




cal I 


put2hs 




cal 1 


con in 




cp 


' * 




jr 


z , in2 




cp 


cr 




J r 


z, in3 




cp 






jr 


z , in4 




or 


a 




ret 




in3 : 


inc 


be 




inc 


be 


in4 ; 


dec 


be 




jr 


inl 




e 1 se 




incmd 


equ 
endi f 


what 



;if not one parameter 
;set input port 



;display port address 

;read character 

;read same port again 

; i f read next 

;if read previous 
jelear carry 

^advance to next port 



if 



options and o.outc 



-- write to output port command -- 

* <16-bit port address> <8~bit value> 



FE 02 



overlay outcmd 
c&seg 

cp 2 



; require two parameters 



m 

ID 



> 

■a 

a> 
a. 

X* 

m 



FC57 


37 




FC58 


CO 




FC59 


4D 




FC5A 


44 




FC5B 


ED 


59 


FC5D 


B7 




FC5E 


C9 





outcmd 



03BB' 
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Transient Command Processors 



4173 
4174 
4175 
4176 
4177 
417B 
4179 
4180 
4181 
4 182 
4183 
4184 
4 185 
4186 
4187 
4188 
4189 
4190 
4191 
4 192 
4193 
4194 
4195 
4196 
4197 
4198 
4199 
4200 
4 20 1 
4202 
4 203 
4204 
4205 
4206 
4207 
4208 
4209 
4210 

421 1 
42 12 
4213 
4214 
4215 
4216 
42 17 
4218 
4219 
4220 

422 1 
4222 
4223 
4224 
4225 
4226 
4227 
4228 



MACRO-80 3.44 



09-Dec-8l 



FC55 


FE 


02 


FC57 


37 




FC58 


CO 




FC59 


13 




FC5A 


5A 




FC5B 


54 




FC5C 


06 


00 


FC5E 


62 




FC5F 


2E 


00 


FC61 


7D 




FC62 


AC 




FC63 


A8 




FC64 


77 




FC65 


23 




FC66 


7C 




FC67 


BB 




FC68 


20 


F7 


FC6A 


62 




FC6B 


2E 


00 


FC6D 


7D 




FC6E 


AC 




FC6F 


AB 




FC70 


CD 


FBOE 


FC73 


CO 




FC74 


23 




FC75 


7C 




FC76 


BB 




FC77 


20 


F4 


FC79 


04 




FC7A 


3E 


2B 


FC7C 


CD 


FC20 


FC7F 


28 


DD 


FC81 


C9 





scf 

ret 

Id 

Id 

out 

or 

ret 

e 1 se 

equ 

endi f 



nz 
c, 1 
b.h 
(c),e 
a 



what 



;if not 2 parameters 

;set 16 bit output port address 

;output to d0-d7 and address to a0-a17 



if options and o.ramt 

-- memory read/ write diagnostic command 

* X <first addr> <1ast addr> 



; check parameter count 





over 1 ay 


test 




c&seg 






cp 


2 




scf 






ret 


nz 




inc 


de 




Id 


e.d 




Id 


d.h 




Id 


b, 


test 1 : 


Id 


h.d 




Id 


1 ,0 


test2: 


Id 


a. 1 




xor 


h 




xor 


b 




Id 


(hi ) .a 




inc 


hi 




Id 


a.h 




cp 


e 




jr 


nz , test 2 




Id 


h,d 




Id 


1 ,0 


t e s t 3 ; 


Id 


a. 1 




xor 


h 




xor 


b 




cal 1 


check 




ret 


nz 




inc 


hi 




Id 


a,h 




cp 


e 




jr 


nz, test3 




inc 


b 




Id 


a , ' •*■ ' 




cal 1 


' output 




jr 


z, test 1 




ret 






e 1 se 




test 


equ 
endif 


what 



;get ending page address into e 
;get starting page address into d 
; initialize pass counter 
;point hi to start of block 



jgenerate test byte 
;store byte in ram 

.check for end of test block 

;now read back each byte 8. compare 
;point hi back to start 

;re-generate test byte data 

;verify memory data still good 

;exit if escape request is indicated 

; else go on to next byte 

; check for end of block 

; bump pass count 

;do another pass if user not unhappy 



FC55 


FE 


FC57 


37 


FC58 


CO 


FC59 


7 1 


FC5A 


£5 


FC5B 


B7 


FC5C 


EC) 


FC5E 


El 


FC5F 


23 


FC60 


38 


FC62 


C9 
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4229 

4230 ; ; 

4 23 1 ; 

4232 

4233 0368- -*■ 

4234 

4235 FC55 FE 03 

4236 

4237 

4238 FC59 7 1 filll; 

4239 

4240 

4241 FC5C EC) 52 

4 24 2 

4243 

4244 FC60 38 F7 

4245 

4 246 

4 24 7 fill 

4248 

4249 

4250 

4251 ;; 

4252 ; 
4253 

4 254 03C6' 
4255 

4256 FC55 FE 03 
4257 
4258 

4259 FC59 CD FC49 
4 260 
4 26 1 
4262 

4263 FC5F ED BO 
4264 
4265 
4 266 
4 267 
4268 
4269 
4270 
4271 
4272 
4273 
4 274 
4275 
4276 
4277 
4278 
4279 
4280 

4281 FC5E 1A verfl; 

4282 
4283 
4284 



MACRO-BO 3.44 



09-Dec-81 



if options and o.fill 

-- fill memory with constant command 



over 1 ay 


f 1 1 1 


c&seg 




cp 


3 


scf 




ret 


nz 


Id 


(hi) ,c 


push 


hi 


or 


a 


sbc 


hi ,de 


pop 


hi 


inc 


hi 


jr 


c.f ill 1 


ret 




el se 




equ 


what 


endi f 





; check if parameter count=3 



jcompare hi to end address in de 
; advance pointer after comparison 



if 



options and o.inove 
memory block move command 



FC55 


FE 


FC57 


3 7 


FC58 


CO 


FC59 


CD 


FC5C 


79 


FC5D 


BO 


FC5E 


ca 


FC5F 


ED 


FC61 


C9 





over 1 a 


y 


block 




c&seg 








cp 




3 




scf 








ret 




nz 




cat 1 




bl ocad 




Id 




a , c 




or 




b 




ret 




z 




* Idir 








ret 








e 1 se 






b 1 ock 


equ 
endi f 




what 



jcheck if parameter count=3 



;exit now if bc=Q 



if 



options and o.verf 
memory block compare command -- 



03D3 ' 

FC55 FE 03 

FC57 37 

FC58 CO 

FC59 CD FC49 

FC5C 18 08 

FC5E 1A 

FC5F CD FBOE 

FC62 CO 

FC63 23 



over 1 ay 


vercmd 


c&seg 




cp 


3 


scf 




ret 


nz 


cal 1 


bl ocad 


jr 


verf 2 


Id 


a. (de) 


cal 1 


check 


ret 


nz 


inc 


hi 



jcheck if parameter count=3 



; compare data <s» de and @ hi 

;exit if escape request 1s Indicated 



10 



> 

x' 
m 



FC64 


13 




PC65 ' 


OB 




FC66 


78 




FC67 


B1 




FC68 


20 


F4 


FC6A 


C9 





03E9' 
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42B5 
4286 
4287 
4288 
4289 
4290 
4 291 
4 292 
4293 
4294 
4295 
4296 
4297 
4298 
4299 
4300 
4301 
4302 
4303 
4304 
4305 
4306 
4307 
4308 
4309 
4310 
431 1 
43 12 
4313 
4314 
43 15 
43 16 
4317 
4318 
4319 
4320 
4321 
4322 
4323 
4324 
4325 
4326 
4327 
4328 
4329 
4330 
4331 
4332 
4333 
4334 
4335 
4336 
4337 
4338 
4339 
4340 



829-11 


MACRO- 


-81 


D 3.44 09-Dec-B 




inc 




de 




dec 




be 


v/erf 2: 


Id 




a,b 




or 




c 




jr 




nz , verf 1 




ret 








e 1 se 




• 


vercmd 


equ 
endi f 




what 



FC55 


3D 




FC56 


28 


10 


FC58 


D6 


02 


FC5A 


3 7 




FC5B 


CO 




FC5C 


7B 




FC5D 


F6 


04 


FC5F 


3 2 


F10C 


FC62 


79 




FC63 


F6 


04 


FC65 


32 


F10E 


FC68 


7D 




FC69 


B7 




FC6A 


3E 


C9 


FC6C 


28 


01 


FC6E 


AF 




FC6F 


32 


F1 15 


FC72 


C9 





0407 ' 



FC55 


B7 




FC56 


28 


06 


FC58 


3D 




FC59 


37 




FC5A 


CO 




FC5B 


7D 




FC5C 


D3 


OC 


FC5E 


CD 


FC3D 


FC61 


1A 





if 



options and o.prot 



Printer Protocol 



FC62 



IB 31 





over 1 ay 


proto 




c&seg 






dec 


a 




jr 


2, prot 1 ;if one parameter 




sub 


2 




scf 






ret 


nz 




Id 


a ,e 




or 


4 




Id 


(si oinsk) , a 




Id 


a , c 




or 


4 




Id 


(si oval ) ,a 1 


prot 1 : 


Id 


a. 1 




or 


a 




Id 


a,0c9h 




jr 


z,prot2 




xor 


a 


prot2: 


Id 
ret 
e 1 se 


(Xonenb) , a 


proto 


equ 
endi f 


what 




if 


(options and o.type) ne 


; ; 


Type - 


Simple Typewriter. 




over 1 ay 


type 




c&seg 






or 


a 




jr 


2, typO ;if no baud rate 




dec 


a 




scf 






ret 


nz ;if more than one parame 




Id 


a, 1 




out 


(baudb),a ;set printer baud rate 


typO: 


cal I 


pnext 




defb 


c I rs 




if 


(options and o.esct) ne 




defb 


esc, T ; set 8 bit keyboard mode 




e 1 se 





> 

a> 

x' 
m 
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4 34 1 
4342 
4343 
4344 
4345 
4346 
4 34 7 
4340 
4349 
4350 
4351 
4352 
4353 
4354 
4355 
4356 
4357 
4358 
4359 
4360 
4361 
4362 
4363 
4364 
4365 
4366 
4367 
4368 
4369 
4370 
4371 
4372 
4373 
4374 
4375 
4376 
4377 
4378 
4379 
4300 
4301 
4382 
4383 



the XEROX Q20~II MACRO-80 3.44 09-Dec-8l 



FC64 


54 


79 70 


65 


FC60 


7 7 


7 2 69 


74 


FC6C 


65 


72 20 


6D 


FC70 


6F 


64 65 


2E 


FC74 


20 


20 54 


6F 


FC70 


75 


63 68 


20 


FC7C 


43 


54 52 


4C 


FCOO 


2B 


45 53 


43 


FC04 


20 


74 6F 


20 


Fcaa 


65 


78 69 


74 


FC8C 


2E 






FCOD 


OD 


OA 04 




FC90 


CD 


F0E5 




FC93 


20 


OF 




FC95 


CD 


FOFO 




FC98 


E6 


7F 




FC9A 


CD 


FOOC 




FC9D 


FE 


OD 




FC9F 


3E 


OA 




FCA1 


CC 


FOOC 




FCA4 


CD 


F006 




FCA7 


20 


E7 




FCA9 


CD 


F009 




FCAC 


CD 


F0F8 




FCAF 


CD 


FOOC 




FCB2 


FE 


OD 




FCB4 


20 


DA 




FCB6 


3E 


OA 




FCBB 


CD 


FQF8 




FCBB 


CD 


FOOC 




FCBE 


18 


DO 





typl: 



typ2: 



type 



;set 8 bit keyboard mode 



defb '0'-'fe>' 

endif 

defm 'Typewriter mode. Touch CTRL+ESC to exit.' 



defb 


cr.lf , eot 


cat 1 


s iost 


jr 


z.typ2 


ca) 1 


sioin 


and 


7fh 


cal 1 


conout 


cp 


cr 


Id 


a, If 


cal 1 


z , conout 


cai I 


const 


jr 


z, typl 


cal 1 


conin 


call 


s i oout 


cal 1 


conout 


cp 


cr 


jr 


nz , typl 


Id 


a. If 


cal 1 


s i oout 


cal 1 


conout 


jr 


typl 


e 1 se 




equ 


what 



;status printer 
; i f char not ready 
; read character 
; strip pari ty bi t 



-.status console 

;if user not active 

; read keyboard 

;send character to printer 

;and screen 



; if not CR 
; send 1 ine 



feed to screen and printer. 



endi f 

if options and o.term 
Terminal / Scroll Driver. 



subtt 1 
page 



Terminal / Screen Manager 



m 

ID 

tn 



m 

ID 



> 

XJ 

n> 

a. 
x' 
m 



0472' 



000F 






0016 






0017 






001A 






001E 






00 IF 






0081 






0082 






00B1 






00B2 






008A 






OOFF 






OOAE 






0007 






0006 






0005 






0004 






0100 






EE80 






EFOO 






EFOO 






FC55 


FE 


02 


FC57 


3F 




FC58 


08 




FC59 


B7 




FC5A 


20 


02 


FC5C 


2E 


00 


FC5E 


01 


0406 


FC61 


CB 


45 


FC63 


28 


03 


FC65 


01 


0507 


FC68 


ED 


43 FE78 


FC6C 


3 1 


EFOO 


FC6F 


CD 


FC3D 


FC72 


1A 





FC73 



FC75 
FC79 
FC7D 
FC81 
FC85 
FCB9 



IB 31 



54 65 72 6D 

69 6E 61 6C 

20 6D 6F 64 

65 2E 20' 20 

54 6F 75 63 

68 20 43 54' 



pass8 
ins 1 in 
de II in 

c 1 rchr 
horns cr 

force 

I 

kupl in 
kdnl in 
Rmt tog 
Rmtalf 
Localf 
Typtog 
Brkkey 



Bal cones Opera tiny System for the XEROX 820-11 
Terminal / Screen Manager 



4384 
4385 
4386 
4387 
4388 
4389 
4390 
4391 
4392 
4393 
4394 
4395 
4396 
4397 
4398 
4399 
4400 
4401 
4402 
4403 
4404 
4405 
4 4 06 
4407 
4408 
4409 
4410 
441 1 
44 12 
4413 
4414 
4415 
4416 
4417 
4418 
4419 
44 20 
4421 
4422 
4423 
4424 
44 25 
4426 
4427 
44 28 
4429^ 
4430 
4431 
4432 
4433 
4434 
4435 
4436 
4437 
4438 



MACRO-BO 3.44 



overlay term 
c&seg 



09-Dec-ai 



equ 
equ 
equ 
equ 
equ 
equ 

equ 
equ 
equ 
equ 
equ 
equ 
equ 



s . 1 echo equ 
s . recho equ 
s.autol equ 
s . autor equ 

Trmtauf equ 

Buftop equ 

Siobuf equ 

Trmstk equ 



cp 

ccf 

ret 

or 

jr 

Id 

Id 

bit 

jr 

Id 

Id 

Id 

cal 1 

db 

if 

db 

e 1 se 

db 

endi f 

db 



terml : 



t erm2 : 



;Move top line off screen to buffer 

;Move bottom line off screen to buffer 

; Toggle Remote Echo 

;Toggle Remote Auto LF after CR 

;Toggle Local Auto LF after CR 

;Toggle Local Echo 

;Hardware BREAK function 

local echo 

remote echo 

local auto If after cr 

remote auto If after cr 



15 
22 
23 
26 
30 
31 

81h 

82h 

80h+' 1 ' 

80h+'2' 

80h+lf 

80h+7fh 

80h+' . ' 

7 
6 
5 
4 

lOOh 

Triubuf +760*80 

Moni tr- 100b 

Siobuf 



2 ; check number of arguments 

c ; i f more than 1 

a 

nz, terml ;if port specifed 

1 ,0 

be , siocpa+s iodpa*256 -.preset A channel ports 

0, 1 

2,term2 ' ;if 0/1 or A/B 

be , siocpb+siodpb*256 ;set B channel ports 

(ports ) ,bc 

sp, t rmstk 

pnext 

c I rs 

options and o.esct 

esc , ' 1 ' 

pass8 

'Terminal mode. Touch CTRL+ESC to exit.' 



> 

"O 

(b 

a 

X* 

rn 



m 
to 
-*4 



FCBO 


5 2 


4C 


2B 


45 


FC9 1 


5 3 


43 


20 


74 


FC96 


6F 


20 


65 


7B 


FC99 


69 


74 


2E 




FC9C 


OD 


0A 






FC9E 


04 









FC9F 



FCD3 



FCE9 



FD 21 FEE5 



FCA3 


CD 


F006 


FCA6 


C4 


FCB1 


FCA9 


CD 


FECB 


FCAC 


C4 


FD40 


FCAF 


IB 


F2 



term3 : 



FCB1 


3E 


00 


FCB2 






FCB3 


B7 




FCB4 


C4 


FD21 


FCB7 


CD 


F009 


FCBA 


CB 


7F 


FCBC 


20 


OB 


FCBfc 


CD 


FD5F 


FCCl 


FD 


CB 00 


FCC5 


C4 


FD4C 


FCCB 


C9 




FCC9 


FE 


81 


FCCB 


20 


12 


FCCD 


CD 


FE50 


FCDO 


CD 


FC3D 



pki : 
brkf Ig 



7E 



Bai cones Operating System for the XEROX B20-II 
Terminal / Screen Manager 



4439 
4440 
4441 
4442 
4443 
4444 
4445 
4446 
4447 
444B 
4449 
4450 
4451 
4452 
4453 
4454 
4455 
4456 
4457 
4458 
4459 
4460 
4461 
4462 
4463 
4464 
4465 
4466 
4467 
4468 
4469 
4470 
4471 
4472 
4473 
4474 
4475 
4476 
4477 
4478 
4479 
4480 
4481 
4482 
4483 
4484 
4485 
4486 
4487 
4488 
4489 
4490 
4491 
4492 
4493 
4494 
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pk i 1 : 



IE IB 52 04 



FCD7 


CD 


FD89 


FCDA 


CD 


FDEB 


FCDD 


18 


14 


FCDF 


FE 


82 


FCE1 


20 


13 


FCE3 


CD 


FE50 


FCE6 


CD 


FC3D 



pk i 2 : 



IE IB 45 04 



FCED 


CD 


FEOB 


FCFO 


CD 


FDB1 


FCF3 


C3 


FE6E 


FCF6 


FE 


FF 


FCF8 


20 


04 


FCFA 


3E 


80 


FCFC 


18 


16 



pki3: 
pki 4 : 



db 


cr.lf 


cJb 


eot 


Id 


iy , status 


cal 1 


const 


cal 1 


nz ,pk i 


cal 1 


sioist 


cal 1 


nz , pre 


jr 


term3 



;set pointer to status byte 

jstatus keyboard 
;process keyboard input 
; status sio 

{process remote character 
{until user escapes 



pki - Process Keyboard Input. 



Id 
equ 
or 
cal 1 
cal 1 
bit 
jr 

cat 1 
bit 
cat I 
ret 
cp 
jr 

cal I 
cal 1 
if 

defb 
e 1 se 
defb 
endi f 
cal I 
cal I 
jr 
cp 
jr 

cal 1 
cal 1 
if 

defb 
e 1 se 
defb 
endi f 
cal 1 
cal 1 

JP 
cp 
jr 
Id 
jr 



a,0 

$-1 

a 

nz , c 1 rbrk 

conin 

7. a 

nz , pki 1 

sndrmt 

s . 1 echo 

nz , sndl oc 



(iy) 



{terminate pending break 
; read input 

; i f f unct ion key 
jsend it to remote 

;if local echo enabled, display console input 



kupl in 

nz,pki2 ;if not scroll up 

gep ;9et cursor position 

pnext ;home screen, then delete top line 

options and o.esct 

homscr , esc ,' R ', eot 



homscr,de! 1 in, eot 



1 t 1 

db 1 

pk i 3 

kdnl in 

nz ,pk i 4 

gep 

pnext 

options and 

homscr , esc , ' 



; 1 ink top 1 ine 
{display bottom line 



{ i f not scro 1 1 down 

•,get cursor position 

;hoine screen, insert blank line 
. esct 
' , eot 



homscr , de 1 1 in , eot 

Ibl 

dt 1 

rep 

Typtog 

nz,pki5 

a, 1 shl s . 1 echo 

pki 8 



1 ink bot torn 1 ine 
di spl ay top line 
restore cursor position 



m 
00 
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> 

<D 

Q. 
X* 
m 



4495 

4496 

4497 

4498 

4499 

4500 

4501 

4502 

4503 

4504 

4505 

4506 

4507 

4508 

4509 

4510 

451 1 

4512 

4513 

4514 

4515 

4516 

4517 

4518 

4519 . 

4520 

4521 

4522 

4523 

4524 

4525 

45 26 

45 2 7 

4528 

4529 

4530 

4531 

4532 

4533 

4534 

4535 

4536 

4537 

4538 

4539 

4540 

454 1 

4542 

4543 

4544 

4545 

4546 

4547 

4548 

4549 

4550 



FCFE 
FDOO 
FD02 
FD04 
FD06 
FD08 
FDOA 
FDOC 
FDOE 
FD10 
FD12 
FD14 
FD1 / 
FD1A 
FD1B 
FD1D 
FD1E 
FD2 1 
FD23 
FD26 
FD28 
FD2A 
FD2C 
FD30 
FD32 
FD33 
FD35 
FD37 
FD38 
FD3A 
FD3B 
FD3D 



FD40 
FD4 3 
FD47 
FD4A 



FD4C 
FD4F 
FD5 1 
FD52 
FD56 
FD57 
FD59 
FD5C 
FD5E 



FD5F 
FD62 



FE Bl 

20 04 

3E 40 

18 OE 

FE 8A 

20 04 

3E 20 

18 06 

FE B2 

2 09 

3E 10 

FD AE 00 

FD 77 00 

C9 

FE AE 

CO 

3A FCB2 

EE FF 

32 FCB2 

16 10 

20 02 

16 00 

ED 4B FE78 

3E 05 

F3 

ED 79 

3E AA 

B2 

ED 79 

FB 

3E FF 

C3 FE90 



CD FED6 
FD CB 00 76 
C4 FD5F 
18 26 



CD FD7 2 

FE OD 

CO 

FD CB 00 6E 

c:a 

3E OA 
CD FD72 
3E OD 
C9 



pk i5 : 

pk i 6 : 

pki7 : 
pki8: 
pki9: 
c I rbrk : 

s e t h r k : 



pre : 



cp 

jr 

Id 

jr 

cp 

jr 

Id 

jr 

cp 

jr 

Id 

xor 

Id 

ret 

cp 

ret 

Id 

xor 

Id 

Id 

jr 

Id 

Id 

Id 

di. 

out 

Id 

or 

out 

ei 

Id 

JP 

pre 



Rmt tog 

nz ,pki6 

a , 1 shl s . recho 

pki8 

Localf 

nz,pki7 

a , 1 sh 1 s . auto 1 

pki8 

Rmtalf 

nz , pk i9 

a , 1 shl s.autor 

(iy) 

(iy),a 

Brkkey 

nz 

a, (brkf Ig) 

-1 

(brkf lg) ,a 

d. lOh 

nz , setbrk 

d.O 

be, (ports ) 

a, 5 

(c),a 

a, 10101010b 

d 

(c) ,a 

a.Offh 

sioot ;send RUBOUT to allow MARKING 

Process Remote Character. 

; read remote character 



;set line SPACING 
;set 1 ine MARKING 
;set up WR5 

jassert DTR , 7 bpc. RTS, Tx Enb 



ca 1 1 sioinc 

bit s . recho , ( i y ) 

cal 1 nz , sndrmt 

jr doc 



;echo it back 
;displ ay it 1 ocal ly 



CD FE90 
FE OD 



J 5 


sndl oc 


- send charac 


sndloc: 


cal 1 


doc 




cp 


cr 




ret 


nz 




bit 


s . auto 1 , ( i y ) 




ret 


z 




Id 


a , 1 f 




cal 1 


doc 




Id 


a , cr 




ret 




; ; 


sndrmt 


- send charac 


sndrmt : 


cal 1 


s i oot 




cp 


cr 



> 

i"CI 
T3 

9: 

I x 
I m 
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m 



4551 
4552 
4553 
4554 
4555 
4556 
4557 
4558 
4559 
4560 
4561 
4562 
4563 
4564 
4565 
4566 
4567 
4568 
4569 
4570 
4571 
4572 
4573 
4574 
4575 
4576 
4577 
4578 
4579 
4580 
458 1 
4582 
4583 
4584 
4585 
4586 
4587 
4588 
4589 
4590 
4591 
4592 
4593 
4594 
4595 
4596 
4597 
4598 
4599 
4600 
4601 
4602 
4603 
4604 
4605 
4606 



FD64 


Lt) 




F065 


FP 


CB 


PD69 


Ld 




FP6A 


3E 


OA 


FD6C 


CD 


FE90 


FD6F 


3E 


OD 


FD71 


C9 





66 



FD72 


FE 


7F 


FD74 


Cfl 




FD75 


4F 




FD76 


C5 




FD77 


CD 


FE9B 


FD7A 


CI 




FD7B 


47 




FD7C 


79 




FD7D 


FE 


OA 


FD7F 


CO 




FD80 


04 




FDB1 


05 




FD82 


CO 




FD83 


CD 


FD89 


FD36 


3E 


OA 


FD8B 


C9 





FD89 


21 


FF5C 


FD8C 


ED 


5B FEEB 


FD90 


01 


0050 


FD93 


ED 


BO 


FD95 


CD 


FE34 


FD98 


ED 


53 FEE8 


FD9C 


2A 


FEE6 


FD9F 


EB 




FDAO 


B7 




FDA1 


ED 


52 


FDA 3 


CO 




FDA4 


1 1 


0050 


FDA7 


19 




FDA8 


EB 




FDAO 


CD 


FE34 


FDAC 


ED 


53 FEE6 


FDBO 


C9 





1 t 1 ; 



FDB1 


ED 


5B FEE8 


FDB5 


2 1 


FFBO 


FDB8 


19 




FDB9 


CD 


FE41 


FDBC 


22 


FEE8 


FDBF 


01 


0050 



dt 1 : 



MACRO- 


-80 3.44 


09-Dec-81 


ret 


nz 




bit 


s.autor 


.(iy) 


ret 


z 




Id 


a, If 




cal 1 


s i oot 




ld 


a , cr 




ret 







doc - Display One Character. 



cp 


7fh 


ret 


z 


ld 


c , a 


push 


be 


cal 1 


outcrt 


pop 


be 


Id 


b,a 


Id 


a , c 


cp 


If 


ret 


nz 


inc 


b 


dec 


b 


ret 


nz 


cal 1 


1 t 1 


ld 


a. If 


ret 





1 1 1 



1 ink top 1 ine . 



Id 


hi , 1 inbuf 


ld 


de , ( toppt r) 


Id 


be, 80 


Idir 




cal 1 


wup 


Id 


( toppt r) , de 


Id 


hi , (botptr) 


ex 


de.hl 


or 


a 


she 


hi ,de 


ret 


nz 


ld 


de,80 


add 


h 1 , de 


ex 


de.hl 


cal 1 


wup 


ld 


(botptr) ,de 


ret 





(It 1 



Display Top Line. 



ld 


de , ( toppt r ) 


Id 


hi, -80 


add 


hi ,de 


cal 1 


w lp 


ld 


( toppt r) ,hl 


Id 


be, 80 



;don't display RUBOUT 
;send it to screen 

{display character 



;if line feed did not scroll 
; 1 ink top 1 ine 



;set address of line above screen 

;move 1 ine 

;wrap upper pointer 

;set new top line address 



; advance bottom pointer 
; wrap upper pointer 



;get line above screen 
;wrap lower pointer 



m 

o 
O 



> 
"O 

a> 

x* 

m 
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4 607 

4608 

4609 

4610 

461 1 

4612 

4613 

4614 

4615 

4616 

4617 

4618 

4619 

4620 

4621 

4622 

4623 

4624 

4625 

4626 

4627 

4628 

4629 

4630 

4631 

4632 

4633 

4634 

4635 

4636 

4637 

4638 

4639 

4640 

4641 

4642 

4643 

4644, 

4645 

4646 

4647 

4648 

4649 

4650 

465 1 

4652 

4653 

4654 

4655 

4656 

4657 

4658 

4659 

4660 

4661 

4662 
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FDC2 


E5 




FDC3 


09 




FDC4 


2B 




FDC5 


3E 


20 


FDC7 


EO 


A9 


FDC9 


20 


03 


FDCB 


EA 


FDC7 


FDCE 


El 




FDCF 


EO 




FDDO 


41 




FDD1 


04 




FDD 2 


C5 




FDD3 


7E 




FDD4 


4F 




FDD5 


FE 


20 


FDD 7 


3 


08 


FDD9 


E5 




FDDA 


OE 


IF 


FDDC 


CD 


FE9B 


FDDF 


El 




FDEO 


4E 




FDE1 


23 




FDE2 


E5 




FDE3 


CD 


FE9B 


FDE6 


El 




FDE7 


CI 




FDE8 


10 


E8 


FDEA 


(.9 





din: 



dlnl ; 



dln2: 



dln3: 



dln4; 



FDEB 


CD 


FC3D 


FDEE 


IB 


3D 37 2 


FDF2 


04 




FDF3 


2 A 


FEE6 


FDF6 


E5 




FDF7 


01 


004F 


FDFA 


CD 


FDC2 


FDFD 


El 




FDFE 


1 


0050 


FE01 


09 




FE0 2 


EB 




FE03 


CD 


FE34 


FE06 


ED 


53 FEE6 


FEOA 


C9 





dbl : 



FEOB 


1 


0050 


FEOE 


2 A 


FEE6 


FE1 1 


B7 




FE12 


ED 


42 


FE14 


CD 


FE41 


FEW 


2 2 


FEE6 



Ibl : 



din - di spl ay 1 ine . 



push 


hi 


add 


hi ,bc 


dec 


hi 


Id 


a . ' ' 


cpd 




jr 


nz,dln2 


JP 


pe .dlnl 


pop 


hi 


ret 


po 


Id 


b,c 


inc 


b 


push 


be 


Id 


a, (hi) 


Id 


c ,a 


cp 


' * 


jr 


nc ,dln4 


push 


hi 


Id 


c , force 


cal 1 


outcrt 


pop 


hi 


Id 


c , ( h 1 ) 


inc 


hi 


push 


hi 


cal J 


outcrt 


pop 


hi 


pop 


be 


d jnz 


d1n3 


ret 





;if not trailing blank 
;if entire line blank 



;force next character out 

;advance address 
♦.display character 

; i f not ent ire 1 ine 



dbl 



Display bottom line. 



cal 1 


pnex t 


db 


esc ,'=',' ' 


Id 


hi , (botptr) 


push 


til 


Id 


be, 80-1 


cal 1 


din 


pop 


hi 


Id 


be, 80 


add 


hi ,bc 


ex 


de.hl 


cal 1 


WLip 


Id 


(botptr ) ,de 


ret 





•23, 



;plant cursor on bottom line 

' . eot 



;display bottom line 



Ibl - I ink bot torn 1 ine . 

Id be, 80 

Id hi , (botptr) 

or a 

sbc hi ,bc 

cal I wlp 

Id (botptr), hi 



> 

•a 

a> 

a. 
x* 
m 



FE1A 


t:B 




FE1B 


2 A 


FEEO 


HE IE 


B7 




FE1F 


ED 


5 2 


FE21 


20 


OB 


FE23 


2A 


FEE8 


FE26 


ED 


42 


FE2B 


CD 


FE41 


FE2B 


2 2 


FEE8 


FE2E 


21 


FF5C 


FE31 


ED 


BO 


FE33 


C9 





FE34 


E5 


FE35 


2 1 


FE3fl 


3 7 


FE39 


ED 


FE3B 


El 


FE3C 


DO 


FE3D 


1 1 


FE40 


1.9 



EE80 



52 



0100 
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4663 
4664 
4665 
4666 
4667 
4668 
4669 
4670 
4671 
4672 
4673 
4674 
4675 
4676 
4677 
467B 
4679 
4680 

468 1 
4682 
4683 
4684 
4685 
4686 
4687 
4688 
4689 
4 690 

469 1 
4 69 2 
4693 
4694 
4695 
4 696 
4697 
4698 
4 699 
4/00 
4701 
4702 
4703 
4704 
47 05 
4706 
4707 
4708 
4709 
4710 
471 1 
4712 
4713 
47 14 
4715 
4716 
4717 
4718 



the XEROX 820-11 



FE4 1 


L5 


FE42 


05 


FE43 


1 1 


FE46 


B7 


FE47 


ED 


FE49 


fJl 


FE4A 


El 


FE4B 


DO 


FE4C 


21 


FE4F 


C9 



100 



52 



EE30 



I b 1 1 



wup ; 



w 1 p : 



FE50 . 


ED 


4B FFB1 


FE54 


2 A 


FFAC 


FE57 


45 




FE58 


CB 


B8 


FE5A 


29 




FE5B 


7C 




FE5C 


D6 


60 


FE5E 


9 1 




FE5F 


C6 


17 


FE61 


D6 


IB . 


FE63 


30 


FC 


FE65 


4F 




FE66 


2 1 


1F38 


FE69 


09 




FE6A 


22 


FE73 


FE6D 


C9 





gep: 



gcpl : 



MACRO 


-80 3.44 09-Dec 


ex 


de.ht 


Id 


hi , ( topptr) 


or 


a 


sbc 


hl.de 


jr 


nz, Ibl 1 


Id 


hi , ( topptr) 


sbc 


hi ,bc 


cal 1 


w I p 


Id 


( toppt r) ,hl 


Id 


hi , 1 inbuf 


Idir 




ret 





81 



;move gold mine to buffer 



wup 



Wrap upper pointer. 



push 


hi 




Id 


hi 


,buf top 


scf 






sbc 


hi 


,de 


pop 


hi 




ret 


nc 




Id 


de 


, Trmbuf 


ret 







;set end of buffer address 



;if not past end of buffer 

;start over at beggining of buffer 



wlp - Wrap lower pointer. 



push 


hi 




push 


de 




id 


de, 


, Trmbuf 


or 


a 




sbc 


hi , 


,de 


pop 


de 




pop 


hi 




ret 


nc 


, 


Id 


hi , 


, buf top-80 


ret 







;set start of buffer address 



;if not below start of buffer 
;start over at end of buffer 



gep 



get cursor position. 



Id 


be , (base ) 


Id 


hi , (cursor) 


Id 


b. 1 


res 


7.b 


add 


h 1 , h 1 


Id 


a , h 


sub 


crtbas*2 


sub 


c 


add 


a, 23 


sub 


24 


jr 


nc .gcpl 


Id 


c , a 


Id 


hi,' '+24- 


add 


hl ,bc 


Id 


( rcpa) ,hl 


ret 





;get column to B 
;set screen row to H 

;row = 23- (base-curh) 



; set row 
+24-100h joffset for <esc>= 



m 
o 



> 
X3 

a> 
m 



FE6E 


CD 


FC3D 


FE71 


IB 


3D 


FE73 


20 


20 


FE75 


04 




FE76 


C9 
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4719 

4 7 20 

4721 

4722 

4723 

4724 

4 7 25 

4726 

4727 

4728 

4729 

4730 

4731 

4732 

4733 

4734 

4735 

4736 

4737 

4738 

4739 

4740 

4741 

4742 

4743 

4744 

4745 

4746 

4747 

4748 

4749 

4750 

4751 

4752 

4753 

4754 

4755 

4756 

4757 

4758 

4759 

4760 

4761 

4762 

4763 

4764 

4765 

4766 

4767 

4760 

4769 

4770* 

4771 

4772 

4773 

4774 
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FE77 


1 


FE78 


FE78 






FE7A 


ED 


78 


FE7C 


CB 


47 


FE7E 


C9 




FE7F 


CD 


FE77 


FE82 


28 


FB 


FE84 


48 




FE85 


ED 


78 


FE87 


CB 


BF 


FE89 


C9 




FE8A 


CD 


FE77 


FE8D 


CB 


57 


FE8F 


C9 




FE90 


08 




FE91 


CD 


FE8A 


FE94 


28 


FB 


FE96 


48 




FE97 


08 




FE90 


ED 


79 


FE9A 


C9 




FE9D 


CD 


FEA7 


FE9E 


CD 


F2FE 


FEA1 


F5 




FEA2 


CD 


FEA7 


FEA5 


Fl 




FEA6 


C9 





FEA7 


C5 




FEA8 


CD 


FE77 


FEAB 


28 


19 


FEAD 


48 




FEAE 


ED 


78 


FEBO 


CB 


BF 


FEB2 


E5 




FEB3 


2 A 


FEEA 


FEB6 


7 7 




FEB7 


2C 




FEB8 


20 


02 


FEBA 


2E 


00 



rep - Restore cursor position. 



rep: 


cal 1 


pnext 




db 


esc , ' = 


rcpa : 


db 


' ' 




db 


eot 




ret 





s io dn vers . 



si oins : 


Id 


\ac .ports 


ports 


equ 


$-2 




in 


a,(c) 




bit 


f a 




ret 




s i o i np : 


cal 1 


sioins 




jr 


z , sioinp 




Id 


c.b 




in 


a.(c) 




res 


7. a 




ret 




siordt : 


cal 1 


s i oins 




bit 


2, a 




ret 




s i oot ; 


ex 


af ,af ' 


s i o o t 1 : 


cal 1 


si ordt 




jr 


z , s i oot 1 




Id 


c,b 




ex 


af.af 




out 


(c),a 




ret 




outcrt: 


cal 1 


siopl 




cal 1 


f astcrt 




push 


af 




cal 1 


s iopl 




pop 


af 




ret 





;set status port to c 



i test rca 



;get status 

; i f not ready 

;set data port address 

; pi ten parity bit 



;get sio status 
; t es t TX empty 



;save char to send 

; test transmit ready status 

; i f not ready 



;poll for input before & after 
;save balcones gold 



Siopl - Sio Poll Input Characters. 



Si op I : 



push 


be 


cal 1 


s i o ins 


jr 


z , s i opl 3 


Id 


c,b 


in 


a,(c) 


res 


7. a 


push i 


hi 


Id 


hi „ ( ipoint ) 


Id 


(hi) ,a 


inc 


1 


jr 


nz.siopl 1 


Id 


1 , 1 ow si obuf 



; input Sio status 
;if input not ready 
;set data port address 

;pi ten pari ty bit 

;set in pointer 

-.store character in fifo 



> 

-a 
a. 
m 



FEBC 


3 A 


FEEC 


FEBP 


95 




PECO 


28 


03 


FEC2 


2 2 


FEEA 


FEC5 


El 




FECb 


CI 




FEC7 


C9 





FECB 


CD 


FEA7 


FECB 


2A 


FEEC 


FECE 


3A 


FEEA 


FED1 


95 




FED2 


C8 




FED3 


F6 


FF 


FED5 


C9 
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4775 
4776 
4777 
4778 
4779 
47B0 
4781 
4782 
4783 
4784 
4785 
4786 
4787 
4788 
4789 
4790 
4791 
4792 
4793 
4794 
4795 
4796 
4797 
4798 
4799 
4800 
4801 
4802 
4803 
4804 
4805 
4806 
4807 
4808 
4809 
4810 

481 1 
4812 
4813 
4814 
4815 
4816 
4817 
4818 
4819 
4820 
4821 
4822 
4823 
4824 
4825 
4826 

482 7 
4828 
4829 
4830 
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FEDb 


CD 


FECB 


FED9 


28 


FB 


FEDB 


7E 




FEDC 


2C 




FEDD 


20 


02 


FEDF 


2E 


00 


FEE1 


22 


FEEC 


FEE4 


C9 





FEE5 



070B' 

FC55 

FCSO 

FC5C 

FC60 

FC64 

FC68 . 

FC6C 

FC70 

FC74 



00 



FEE6 


'J 100 


FEE8 


100 


FEEA 


EFOO 


FEEC 


EFOO 



s iop 1 1 : Id 
sub 
jr 
Id 
s iop I 2 : pop 
siop!3; pop 
ret 



a , (opoint ) 

1 

z , s iopl 2 

( ipoint ) ,hl 

hi 

be 



; if buffer ful 1 



Sioist - Sio Input Status. 



Si oi s t : cal 1 
Id 
Id 
sub 
ret 
or 
ret 



Siopl 

hi , (opoint ) 

a , ( ipoint ) . 

1 

z 

-1 



; po 1 1 for input 
;set out pointer 



; i f data not ready 



Sioin - Sio Input Character. 

;set input ready status 

jadvance out 



Si oinc : 


cal 1 


Sioist 




jr 


z , Sioinc 




Id 


a, (hi) 




inc 


1 




jr 


nz , Sioi 1 




Id 


1 , 1 ow s iobuf 


Sioi 1 : 


Id 
ret 


(opoint ) ,hl 


status : 


db 





botpt r ; 


dw 


Trmbuf 


t oppt r : 


dw 


Trmbuf 


ipo int : 


dw 


s i obuf 


opo int : 


dw 
e 1 se 


s i obuf 


term 


equ 
endi f 


what 



if options and o.help 

Help Key Command. 

overlay help 
c&seg 



CD FC3D 
42 61 75 64 
09 09 3C 7 2 
61 74 65 3E 
20 5B 42 2F 
41 5D OD OA 
44 75 6D 70 
09 09 5B 73 
74 61 72 74 



cal 1 
detb 



defb 



pnex t 
'Baud 



' Dump 



<rate> (B/A] ' ,cr, If 



(start ] (end} ' ,cr, If 



m B a 1 c i j i \ e s 


Opera t \ i\> 


lJ System i 


lor 


~ Termi na I 


/ Screen 


Manager 




4031 


FC7B 


5D 


20 


5B 


65 


4032 


FC7C 


6E 


64 


5D 


OD 


4033 


FC0O 


OA 








4034 


FC0 1 


47 


6F 


74 


6F 


4035 


FC05 


09 


09 


3C 


61 


4036 


FC09 


64 


64 


72 


3E 


4037 


FCOD 


OD 


OA 






4030 


FCGF 


4D 


6F 


64 


69 


4039 


FC93 


66 


79 


09 


09 


4040 


FC9 7 


3C 


61 


64 


64 


4041 


FC9B 


72 


3E 


OD 


OA 


4042 


FC9F 


50 


72 


6F 


74 


4043 


FCA3 


6F 


63 


6F 


6C 


4044 


FCA7 


09 


3C 


70 


6F 


4045 


FCAB 


6E 


3E 


20 


5B 


4046 


FCAF 


6D 


73 


6B 


20 


4047 


FCB3 


76 


61 


6C 


5D 


4040 


FCB7 


OD 


OA 






4049 


FCB9 


04 








4050 


FCBA 


C9 








4051 












4052 












4053 












4054 












4055 












4056 
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> 
XI 

-o 

r» 
a. 
x' 
in 



defb 'Goto <addr>' ,cr,lf 



defb 'Modify <addr> ' , cr , 1 f 



defb 'Protocol <xon> [nisk valj'.cr.lf 



he lp 



defb 


eot 


ret 




e 1 se 




equ 


what 


endi f 




subt t 1 


Segment 


page 





Size Information 
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4057 






4858 






4059 






X 


4860 






rn 


4861 


077 1 ' 






4862 


0299 




4863 






4864 






4865 






4866 






4867 


0000! 




4868 


041B 


1 


4869 






4870 






487 1 






4872 






4873 


0518! 


1 


4874 


FC55 




4875 


0C55 




4876 






4877 




i 


4878 






4879 




* 


4880 






4881 


17E1 




4882 






4883 






4884 






4885 


0C55" 




4886 






4887 






4888 


0771 ' 




4889 






4890 






4891 








4892 





tpaiuax 



res top 
res 1 en 



Top of Overlay Area. 

overlay stop 

c&seg 

equ tpal 

Top of Resident Monitor. 

be I ow 

ciefs coinres 

equ $ 



Top of Non Resident Monitor. 



above 

d&seg 

equ $ 

equ $-monitr 



;set length of transient move 



; resident top 

; length of resident monitor 



update jclear active segment 

;; Top of Burned Rom Set. 

romtop equ b I oc+d 1 oc+t I oc-moni t r 
; ; Fill Out Unused Rom Space. 

cseg 

if ( rom+romsi z- romtop) gt 

def s ( rom+romsi z-romt op) , - 1 
end if 

subttl Resident Monitor System Ram 
page 



m 

— k 

o 



o 



> 

u 

Q- 
X* 
m 
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4893 
4894 
4895 
4896 
4897 

4898 FFOO 

4899 ' FFOO 

4900 FF10 

4901 FF18 

4902 FF1C 
4903 

4904 
4905 

4906 FF20 

4907 FF30 

4908 FF31 

4909 FF32 
4910 

4911 FF33 

4912 

4913 

4914 

4915 FF34 

4916 

4917 

4918 

4919 FF3C 

4920 FF3E 
492 1 

4922 
4923 
4924 

4925 FF40 

4926 -FF50 
4927 

4928 
4929 

4930 FF50 

4931 FF52 

4932 FF54 

4933 FF55 
4934 

4935 
4936 

4937 FF56 

4938 FF57 

4939 FF58 

4940 FF59 

4941 FF5A 

4942 FF5B 
4943 

4944 
4945 

4946 FF5C 

4947 FFAC 
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.phase ram 

Start of Documented Storage Locations. 



vec tab : 
s i ovec : 
ctcvec : 
sysv/ec : 
genvec : 



expvec : 



avai 1 b; 
avai I t : 



intstk : 



1 inbuf j 
cursor: 



defs 16 

defs 8 

defs 4 

defs 4 



; interrupt vector table starts here 
;space for 8 vectors for sio 
jspace for 4 vectors for etc 
jspace for 2 vectors for system pio 
;space for 2 vectors for general pio 



keyboard data input fifo variables 
6 



fifo: 


defs 


1 


f if cnt : 


defs 


1 


f i f i n : 


defs 


1 


f if out : 


defs 


1 



defs 1 

More interrupt vectors 

defs 8 



console input fifo 
fifo data counter 
fifi input pointer 
fifo output pointer 

; round address 



-.space for 4 vectors for expansion slot 



Available memory pointers. 



defs 
defs 



jbottom of available memory 
; top of available memory 



End of documented storage locations. 

defs 16 ; local stack for interrupts 

clock-timer interrupt variables 



Mi 1 sec 


defs 


2 


t ikent 


defs 


2 


steprt 


defs 


1 


t imout 


defs 


1 




Get ime 


en 


day : 


defs 


1 


month : 


defs 


1 


year : 


defs 


1 


hrs : 


defs 


1 


mins : 


defs 


1 


sees : 


defs 


1 



One Millisecond timer. Enable int on ctel 
16 bit seconds counter (18 hr, 12 min, 16 sec) 
WD 1797 step rate 
time-out, decrements once per second 



Get ime entry returns the address of DAY 



calendar day 

month 
year-1970 
clock hours 

minutes 
seconds 



(01-31) 

(01-12) 

(1970-2225) 

(00-23) 

(00-59) 

(00-59) 



crt output driver variables 



defs 80 
defs 2 



;line buffer & Bcc gold mine 
;cursor pointer 



> 

Q- 
X* 
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4948 


FFAE 


4949 


FFAF 


4950 


FFB1 


4951 


FFB2 


4952 


FFB3 


4953 


FFB4 


4954 




4955 




4956 




4957 


FFB5 


4958 


FFB7 


4959 


FFB9 


4960 


FFBB 


4961 


FFBD 


4962 




4963 




4964 




4965 


FFBF 


4966 




4967 


FFCB 


4968 


FFCC 


4969 




4970 


FFCD 


4971 




4972 


FFDO 


4973 




4974 


FFDO 


4975 


FFEO 


4976 




4977 


FFEO 


4978 


FFE2 


4979 


FFE4 


4980 




498 1 


FFE6 


4982 


0000 


4983 




4984 




4985 




4986 




4987 





csrchr: 


def s 


1 


d i r c u r : 


def s 


2 


base ; 


def s 


1 


1 ead in : 


def s 


1 


a 1 1 r i b : 


def s 


1 


chrsav : 


def s 


1 



jcharacter used for a cursor 

jcursor pointer for direct crt display 

jcurrent contents of scroll register 

jstate of lead-in sequence handler 

-.attribute enable 

{Character under cusror 



console monitor program variables 



paraml ; 


def s 


2 


param2 : 


def s 


2 


param3 : 


def s 


2 


param4 : 


def s 


2 


last : 


def s 


2 



storage for numbers read 
from 1 ine input buffer 
by 'PARAMS' subroutine 
for command processors 

last address used by 'MEMDMP' 



contbl : 

spare 1 ; 
spare2 : 

spare : 

sparnd : 

crtstk : 

rstsp : 
r s t h 1 : 
rstpc : 

stack: 



Configurable parameter address table 
defs 2*numcon 



def s 

defs 

defs 



defs 



defs 
defs 
defs 

defs 



jspare configuration byte 
;another spare byte 



(ram+ 100h-48)-$ jspare ram space 

; end of spare ram 
16 ; crt stack 



2 
2 
2 

26 



; sp register on reset 
;hl register on reset 
;possible pc from top of stack 

; moni tor stack 



. dephase 

subttl Console Messages 
page 



m 
o 



o 

00 



Ba I cones Operating 
Console Messages 

4908 
4909 
4990 
4991 
4992 
4993 
4994 
4995 
4996 
4997 
4998 
4999 
5000 
5001 
5002 
5003 
5004 
5005 
5006 
5007 
5008 
5009 
5010 

501 1 
5012 
5013 
5014 
5015 
5016 
5017 
5018 
5019 
5020 

502 1 
5022 
5023 
5024 
5025 
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; ; Console Message Macros.^ 

message macro text, hi, h2 
if 1 

. radi x 16 

printx <text>,%(h! ) ,%(h2-1 ) ,%((h2)-(hl)) 
.radix 10 
end if 
endm 

printx macro tex t ,h 1 ,h2 , h3 

.printx + text hi - h2 = h3 + 
endm 

if romtop ge (rom+romsiz) 

message <* The ROM set is Too big *>, rom+romsiz , romtop 

endif 

if cloc+tpal gt ram 

message <* The TPA set is Too big *>, ram, cloc+tpal 

endif 

message <Non~res ident executes >, rom.bloc 

message <Rom is burned up from >,rom, romtop 

message <Unused Rom Space from >, romtop , rom+romsi z~ 1 

message <Resident Monitor neeq*s> ,moni t r , rqtop 

message <Space Wasted to Driver> .Wasted , Se 1 tab 

message <Physical Disk Drivers > , Se 1 tab , Dvrlmt 

message <Driver Offset for ZSID> , 200h+bl oc+Sel tab-Monl tr ,0 

message <I/0 Byte Drivers from > , i obi oc , i obi oc+ i obdvs 

message <Command Processor Area> , rqtop , rest op 

message <Transient Overlay ROM >, start, stop 

message <Transient Command Area> , c 1 oc , c I oc+tpal 

message <Spare Locations in Ram> , spare , sparnd 

subttl The*End 
end entry 



> 

Q- 
m 
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> 


The*End 




■a 






■a 


Macros ; 






ABOVE 




PHEX 




UPDATE 




X* 






Tl 


Symbo 1 s 
0080 






F364 


.C 




F36A 


.F 




F370 


. I 




F376 


.L 




F37C 


.0 




F6F2 


ADDRH 




FDAO 


ALL01 




FEOO 


ALL04 




FEEO 


ALL07 




FA78 


AUTOBT 




0000 


B.BSY 




0001 


B.MSG 




0007 


B.RST 




FFB1 


BASE 




FC65 


BAUD2 




00 IB! 


BBASE 




0331 


BELLI 




041B 


BLOC 




0061 


BLOFC 




OOOF 


BNDRY 




FC69 


B00T2 




FCDD 


BOOTD 




FCD4 


BOOTS 




OOAE 


BRKKEY 




0004 


C . B I N 




OOCO 


C.FLPY 




OOOC 


C. INIT 




0001 


C.RECAL 




0006 


C. SASI 




0000 


C.TRDY 




OOOA 


C.WRIT 




F323 


CCA1 




00B1 


CCS1 




F592* 


CDD'1 




F6A5 


CFT 




FDOO 


CHKOO 




FD60 


CHK03 




0000 


CHK06 




03EA 


CHR I N 1 




0034 


CHR0M1 




FC55 


CLOC 




001A 


CLRChR 




034 1 


CLRLIN 




037A 


CLRS2 




FAD8 


CMDTA.B 




F775 


COMINP 




F77F 


COMOUT 




F091 


CONFG 




F790 


CON I OB 



BELOW 
PMSG 



BSEG 
PRINTX 



MESSAGE 
SEGMENT 



OVERLAY 
SERVICE 



F360 


.A 


F366 


.D 


F36C 


.G 


F372 


.J 


F37B 


.M 


F37E 


.P 


F6F3 


ADDRL 


FDCO 


ALL02 


FEBO 


ALLO'5 


0068 


ASYNC 


FF3C 


AVAILB 


0002 


B.CD 


0006 


B.PAR 


0005 


B.SEL 


1353 


BAUD 


0000 


BAUDA 


040F 


BBG 


0028 


BELLOF 


FC49 


BLOCAD 


0061 


BLONC 


1 1B8 


BOOT 


FCA3 


B00T3 


FCD9 


BOOTER 


FEE6 


BOTPTR 


0000 


BSPACE 


0004 


C.FIVE 


0004 


C.FMAT 


0007 


C.KEYM 


0003 


C.RQSN 


OOOB 


C.SEEK 


0005 


C.TWO 


0009 


C.WRPR 


F324 


CCA2' 


F57A 


CDD 


F59B 


CDD2 


F6A9I 


CFTA 


FD20 


CHK0 1 


0000 


CHK04 


0000 


CHK07 


03F0 


CHRIN2 


0035 


CHR0M2 


0350 


CLR1 


0344 


CLREOL 


001A 


CLRS 


0357 


CLRSCN 


F767 


CNFDPB 


F770 


COMINS 


0518 


COMRES 


FOBB 


CONFIG 


FOOC 


CONOUT 



F362 


.B 


F368 


.E 


F36E 


.H 


F374 


.K 


F37A 


.N 


009B 


ABORT 


FD80 


i ALLOO 


FDEO 


ALL03 


FECO 


ALL06 


FFB3 


ATTRIB 


FF3E 


AVAILT 


0004 


B. 10 


0003 


B.REQ 


02CE 


BAKSPC 


FC5D 


BAUD1 


OOOC 


BAUDB 


032F 


BELL 


0029 


BELLON 


1436 


BLOCK 


0035 


BLTIM 


FC58 


B00T1 


ED80 


BOOTBF 


0080 


BOOTLD 


FCB2 


BRKFLG 


EE80 


BUFTOP 


0007 


C.FLAW 


0006 


C.FTRK 


OOOB 


C.READ 


0002 


C.RSYN 


OOEO 


C.TRAM 


0005 


C.VTRK 


F31E 


CCA 


OOAF 


CCS 


F584 


CDDO 


01 OB 


CFINIT 


FBOE 


CHECK 


FD40 


CHK02 


0000 


CHK05 


03F5 


CHRDEL 


03DC 


CHR INS 


FFB4 


CHRSAV 


FD21 


CLRBRK 


0361 


CLREOS 


0365 


CLRS1 


0036 


CMDSIZ 


FOOO 


COLD 


F788 


COMOTS 


0518C 


COMROM 


F009 


CONIN 


F006 


CONST 



NJ 



Ba 1 cor 
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id 












FFBF 


CONTBL 


023D 


CONTRL 


F723 


CPB 


t 


F731 


CPB1 


F736 


CPB2 


F759 


CPB3 




000D 


CR 


FC36 


CRLF 


0030 


CRTBAS 




1 B 2 


CRTD1 


0196 


CRTD2 


0199 


CRTD3 




01B2 


CRTD4 


0169 


CRTDVR 


F2A3 


CRTLDIR 




3COO 


CRTMAX 


3000 


CRTMEM 


F2E7 


CRTMV 




F2E9 


CRTMVO 


F296 


CRT0F1 


F293 


CRTOFF. 




F29C 


CRTON 


F299 


CRT0N1 


F2F1 


CRTOUT 




FFEO 


CRTSTK 


003C 


CRTTOP 


0000 


CSPACE 




FFAE 


CSRCHR 


0018 


CTC 


0018 


CTCO 




0019 


CTC1 


001A 


CTC2 


001B 


CTC3 




FF10 


CTCVEC 


0036 


CTLSIZ 


0254 


CTLTAB 




FFAC 


CURSOR 


F6D7 


CWP • 


FF56 


DAY 




F039 


DAYTI 


F086 


DAYTIM 


FDEB 


DBL 




F6F5 


DCTRL 


0000 


DEBUG 


02C5 


DEFCUR 




F6EA 


DEFLPY 


F6EB 


DEFLUN 


0017 


DELLIN 




FCBO 


D1RBUF 


FFAF 


DIRCUR 


01F3 


DIS1 




01F2 


DISATR 


FDC2 


DLN 


FDC7 


DLN1 




FDCE 


DLN2 


FDD2 


DLN3 


FDE1 


DLN4 




FC55 


DLOC 


FC23 


DMPFMT 


02E7 


DNCSR 




FD72 


DOC 


F490 


DPB5D 


F470 


DPB5S 




F450 


DPB8D 


F430 


DPB8S 


F390 


DPBASE 




OOOA 


DPBOFS 


F470 


DPBRG4 


F480 


DPBRG5 




F490 


DPBRG6 


F4A0 


DPBRG7 


F1F1 


DPM 




F380 


DRVTAB 


FC76 


DSKO 


FC7B 


DSK1 




FCAO 


DSK3 


1367 


DSKCMD 


F4B0 


DSKDVR 




FCAC 


DSKERR 


03EF 


DSM4 


01EF 


DSM5 




OOEF 


DSM6 


OOEF 


DSM7 


0000 


DSPACE 




F632 


DSW 


FDB1 


DTL 


F6D5 


DTYPE 




FBBF 


DUMP 


FB9B 


DUMP2 


FBB4 


DUMP3 




FBD1 


DUMP4 


FA08 


DVRLMT 


FD05 


EATKEY 




FC27 


ECHO 


F69B 


ECR 


F0A2 


EIRET 




01EF 


ENATR 


0000! 


ENTRY 


0004 


EOT 




00C4 


- ERR 


OOBC 


ERR1 


00C1 


ERR2 




oocc: 


ERR3 


00D4 


ERRM1 


OODD 


ERRM2 




0009 


ERRML 


001B 


ESC 


029B 


ESCADR 




02BD 


ESCAPE 


028A 


ESCTAB 


001 1 


ESCTBL 




FF34 


EXPVEC 


0000 


FALSE 


0000 


FALUN 




F2FE 


FASTCRT 


0001 


FBLUN 


0000 


FCLUN 




0002 


FDLUN 


FF30 


FIFCNT 


FF31 


FIFIN 




FF20 


FIFO 


FF32 


FIFOUT 


1428 


FILL 




FC59 


FILL1 


F6F6 


FIRST 


F708 


FIRST1 




F721 


FIRST2 


F4BD 


FL0P1 


F4DE 


FL0P2 




F4F2 


FL0P3 


F4FC 


FL0P4 


F506 


FLOPS 




F6EF 


FLPFRM 


0003 


FM.DD 


0007 


FM.DDDS 




OOAO 


FM.DDSS 


0004 


FM.DS 


0006 


FM.FV 




0080 


FM.HARD 


0001 


FM.SDDS 


0000 


FM.SDSS 




0002 


FM.SZ 


0007 


FM.UN 


0003 


FM.WR 




0001 


FMDD 


0006 


FMDDSS 


0000 


FMDS 




001F 


FORCE 


02D4 


FORSPC 


F61A 


GCA 




F626 


GCAO 


F634 


GCA1 


F63F 


GCA2 




F627 


GCAA 


FE50 


GCP 


FE61 


GCP1 




FF1C 


GENVEC 


FBDA 


GETHEX 


FB2C 


GETHLP 




FB37 


GETLIN 


F097 


GETSEL 


FB38 


GLI'Nl 




FB50 


GLIN4 


FBDF 


GNUM1 


FBE4 


GNUM3 




F319 


GOLD 


12DB 


GOTO 


0009 


GPIOCA 
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Q. 
X* 


OOOB 


GPIOCB 


OOOB 


GPIODA 


OOOA 


GPIODB 




177B 


HELP 


OOIE 


HELPKEY 


FBF3 


HEXBIN 




FA3C 


HOME 


02C9 


HOMEUP 


OOIE 


HOMSCR 




FF59 


HRS 


F649 


ICC 


F643 


ICCS 




Tl 


F64D 


ICCS1 


F066 


IDLE 


FC5A 


INI 






FC61 


IN2 


FC77 


IN3 


FC79 


IN4 






13CA 


INCMD 


F137 


INDEX 


0016 


INSLIN 






00E6 


INTAB 


FF50 


INTSTK 


1 12B 


IOBDVR 






OOBD 


IOBDVS 


F770 


IOBLOC 


0003 


IOBYTE 






F7AF 


IOCONI 


F796 


IOCONO 


F7A3 


10C0NS 






F7BB 


IOLIST 


F7CC 


IOLSTS 


FEEA 


IPOINT 






F643 


ISC 


FAD6 


JPIX 


001F 


KBDCTL 






OOIE 


KBDDAT 


FODB 


KBDIN 


F0D5 


KBDIN 1 






FOCD 


KBDST 


F0E2 


KBMASK 


0082 


KDNLIN 






F162 


KEY1 


F167 


KEY2 


F17F 


KEY3 






F184 


KEY4 


F1BF 


KEY5 


F140 


KEYSRV 






008 1 


KUPLIN 


FFBD 


LAST 


F5F0 


LASTFM 






FEOB 


LBL 


FE2E 


LBL1 


FD05 


LCP 






FD1D 


LCP1 


FD30 


LCP2 


FD52 


LCP3 






FD49 


LCPA 


FD4B 


LCPB 


F2B3 


LDIRV 






F2B5 


LDIR2 


F2C4 


LDIR3 


0418 


LD1RX 






FFB2 


LEADIN 


OOOA 


LP 


02F7 


LFEED 






FF5C 


LINBUF 


0388 


LIND1 


039E 


LIND2 






039F 


LIND3 


037C 


LINDEL 


03B7 


LINI 1 






03C0 


L I N I 2 


03CD 


LINI3 


03A4 


LININS 






008A 


LOCALE 


0036 


LOWLITE 


F333 


LSTATT 






FD89 


LTL 


F6F1 


LUN 


0800 


LX1984 






021C 


M3TST 


022B 


M4TST 


0232 


M5TST 






F0E3 


MASK 


FB22 


MDATA 


FC5B 


MDMP1 






FC5E 


MDMP2 


FC63 


MDMP3 


FC69 


MDMP3A 






FC71 


MDMP3B 


12F2 


MEMDMP 


F236 


MILO 






F246 


MIL01 


F250 


M1L02 


F258 


MILL1 






F265 


MILL2 


F27B 


MILL3 


F27C 


MILL4 






F27E 


MILL5 


F281 


MILL6 


FIFD 


MILLI 






FF50 


MILSEC 


FF5A 


MINS 


F5AF 


MLU 






01DF 


MODE 


01E1 


M0DE1 


FOOO 


MONITR 






FF57 


MONTH 


00E5 


MOVLN 


F5C2 


MPA 






F6D7 


MPA1 


F5DA 


MPA2 


F5E6 


MPA21 






F5E9 


MPA22 


F606 


MPA3 


F610 


MPA4 






F613 


MPA5 


F559 


MTRADR 


01B4 


MULTI 






F6F4 


NBLK 


0066 


NMI 


02C0 


NONO 






0040 


NT4 


0020 


NT 5 


0010 


NT 6 






0010 


NT 7 


002B 


NTRK5 


004D 


NTRK8 






F13F 


NULINT 


0006 


NUMCON 


F502 


NUMUNT 






4000 


O.AUTO 


0400 


O.BAUD 


0800 


O.DDVR 






0020 


O.DISK 


0010 


O.ESCT 


0004 


O.FILL 






2000 


O.HELP 


0200 


0. INPC 


0002 


O.MOVE 






0100 


O.OUTC 


1000 


O.PR-OT 


0040 


O.RAMT 






BOOO 


O.RESV 


0001 


O.TERM 


0008 


O.TYPE 






0080 


O.VERF 


F6F0 


OPCODE 


FEEC 


OPOINT 






BFFF 


OPTIONS 


13F1 


OUTCMD 


FE9B 


OUTCRT 






F20B 


OUTCUR 


FC20 


OUTPUT 


0007 


P.ACKN 






0000 


P. AUTO 


0006 


P.ONLN 


0005 


P.RDYI 






0004 


P.RDYO 


0002 


P.STRB 


F59F 


P2L 






FB5D 


PARAO 


FB6C 


PARA1 


FB7 1 


PARA2 




Tl 


FB76 


PARA4 


FFB5 


PARAM1 


FFB7 


PARAM2 
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cdi sk 
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phycmd 
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09-Dec-Bl 

Title Quick, Fast Cold Start Loader 

Quick, Fast Cold Start Loader. 

Copyright (C) 1982, Balcones Computer Corporation. 

.z80 



equ 
equ 



cseg 
equ 



0f02ah 
0Q004h 



•.Physical Driver Executioner 
'jcurrent user/disk 



jorigin of bios above ccp 8. bdos 



.phase 80h 

equ $ 

equ $+ 1 

equ $+2 

equ $+3 

equ $+5 

equ $+7 

quick, fast loader. 

Entry; A = Sectors per Track 

DE = Address of Physical Command Block that loaded QFD 

; transfer command block 
ud 

;woe be unto he who changes qfs 

;set loader control table address 

;set table entry size 

;advance table address 

;match with loader control table entry 

; i f match not found yet 

;if entry not in table 

;set track offset+1 

;move starting sector, adjust track offset 

;clear upper sector 
;set number of sectors 

;set (sector size)/4~1 
; sector size / 4 



ex 


de.hl 


Id 


be ,physec-p 


Idir 




Id 


hi . ldrtbl-5 


Id 


c,5 
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hi ,bc 


cp 


(hi) 
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c ,qf s 1 
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nz 
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hi 


Id 
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hi 
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xor 
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Id 


(de) ,a 


Id 


a, (hi ) 


inc 


hi 


Id 


1 .(hi) 
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hi 


add 


hi ,hl 
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h 1 , h 1 


ex 


de.hl 


Id 


hi , (phytrk) 
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hi ,bc 


Id 


(phytrk) ,h1 


Id 


b,a 


Id 


a,d 


Id 


hi ,bios-80h 



;set sector size in DE 
;add track offset 



;set number of sectors 
;check sector size 
;set starting address 
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MACRO-80 3.44 



qfs2: 
q f s 3 : 



09-Dec-8l 



ldrtbl 



or 

jr 

add 

Id 

ex x 

Id 

cal 1 

Id 

inc 

ex x 

or 

ret 

djnz 

Id 

Id 

push 

Id 

Id 

Id 

Idir 

Id 

inc 

Id 

Id 

cal 1 



;if big sectors 

jadvance transfer address 



n z , q f s 3 
hi , de 
(phydma ) , h 1 

jswitch register sets 
hl.phycmd or qfs;set physical command address 



Xqdvr 

hi , physec 

(hi) 

a 

nz 

qfs2 

(cdisk) , a 

hi , b i o s + 3 

hi 

hi , sernum 

de, ldrtbl 

c , sernml 

(de) .a 
de 

a.0c9h 
(de) ,a 
bios 



jexecute driver read 
jadvance sector 

;switch back 

-,if boot error 
;if cold start not complete 
jstart out in A: user 
;warm start after signon 



jexecute cold start loader 



Loader Control Table. 

Entries Must be in sort order 



db 



db 
db 
db 
db 
db 
db 
i f 



sectors per track 
offset+1 from boot track 
starting bios sector 
number of bios sectors 
sector s i z e A4 - 1 

52, 1+1 .22,4.256/4-1 

34.2+1 .05.4,256/4-1 

26. 1+1 ,20.7, 128/4-1 

18,2+1 , 10,7, 1 28/4- 1 

00,0+1 ,22,4,256/4-1 

00 



8" Double Density 
5" Double Density 
8" Single Density 
5" Single Density 
Any SASI Rigid Disk 
End of table 
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$ gt 100h-10 
. pr intx * Too Big * 
else 

if $ eq I00h-10 
.printx + Perfect Fit + 
e 1 se 

ds 100h-l0-$,-1 
end if 



3 

a. 



> Quick, Fast Colli Start Loader MACRO-BO 3.44 09-Dec-81 
XJ 
X> 
(5 113 end if 

1 14 

115 ; ; Ser i a I i zat ion . 

X 116 ; 

G\ 117 00F6 20 44 43 2A sernum: db ' DC*****++' ;Manufacturing serial number here 

i ia 

1 19 

120 000A sernml equ $-sernum 

121 

122 if $ ne lOOh 

123 .print* * Serial Number Out of Place * 

124 • endif 

125 . dephase 
126 
127 end 






00F6 


20 


44 


43 2A 


OOFA 


2 A 


2A 


2A 2A 


OOFE 


2A 


2A 




000A 









a 


Quick , 


Fast Co 


Id 


Start Loader 


& 


Macros 
Symbo 1 i 










0000' 


BIOS 




0004 




0080 


PHYCMD 




0087 




00B5 


PHYSEC 




0083 




0000 


QFS 




008B 




00AE 


QFS3 




000A 




F02A 


XQDVR 







MA'CRO-80 3.44 09-Dec-8 1 



CDISK 

PHYDMA 

PHYTRK 

QFS1 

SERNML 



OODA 


LDRTBL 


0082 


PHYDRV 


0081 


PHYUNT 


OOAD 


QFS2 


00F6 


SERNUM 



No Fata 1 error ( s » 



> 
X3 

X* 



> BIOS 13# 56 71 81 

a> 

3 



BIOS 


13# 


56 


71 


CDISK 


10* 


70 




LDRTBL 


32 


74 


93# 


PHYCMD 


17# 


30 


62 


PHYOMA 


22ft 


60 




PHYDRV 


19* 






PHY SEC 


21# 


30 


64 


PHYTRK 


20# 


51 


53 


PHYUNT 


18# 






QFS 


29# 


62 




QFS1 


34# 


36 




QFS2 


59# 


69 




OFS3 


58 


60# 




SERNML 


75 


120* 




SERNUM 


73 


1 17# 


120 


XQDVR 


9* 


63 





en 



Notes 



G6 Appendix G 



> 

XI 

CL 



XEROX 820-11 BIOS 
Bios Jump Table 



2 
3 
4 
5 
6 
7 

a 

9 
10 

1 i 

12 
13 
14 
15 
16 
17 
IB. 
19 
20 
21 
22 
23 
24 
25 
26 
27 
28 
29 
30 
31 
32 
33 
34 



MACRO-80 3.44 



09-Dec-81 



0000' 


C3 


00F1 


0003' 


C3 


0069 


0006' 


C3 


F04B 


0009' 


C3 


F04E 


000C 


C3 


F051 


OOOF' 


C3 


F054 


0012' 


C3 


F060 


0015' 


C3 


F05D 


0018' 


C3 


01B6 


001B' 


C3 


0154 


001E' 


C3 


01B9 


002 1 ' 


C3 


01BE 


0024 ' 


C3 


01C3 


0027 ' 


C3 


01EB 


002A' 


C3 


01F3 


002D' 


C3 


F057 


0030' 


C3 


01C8 



0033' 



81 



subttl Bios Jump Table 
title XEROX 820-11 BIOS 

XEROX 820+ Rom Resident Bios Jump Table. 

Copyright 1981, Balcones Computer Corporation. 

.z80 



; co 1 cJ start 
; Harm start 

-.console status 
jconsole character in 
;console character out 
;list character on printer 
; punch 
; reader 

;move head to home position 

; s elect disk 

;set track number 

;set sector number 

;set dma address 

jread a record 

jwrite a record 



bios : 


JP 


cboot 


bwboot : jp 


wboot 


bconst : jp 


const 


bconin: jp 


con in 


bconot : jp 


conout 


bprint: jp 


1 ist 


bpuncl 


»: jp, 


punch 


breadr: jp' 


reader 


bhome 


JP 


home 


bseld 


JP 


se Idsk 


bsett 


JP 


set t rk 


bsets 


JP 


se tsec 


bsetd 


JP 


setdma 


bread 


JP 


read 


bwr i t 


JP 


write 


bprnt £ 


i: JP 


1 istst 


bsct rr 


i: JP 


sect rn 



initio.- db 



Subtt 1 
page 



;printer ready status 
;sector translate 



10000001b -.Initial I/O Byte 
Cold and Warm Start Module 



X 



XEROX 820-11 BIOS MACRO-BO 3. 
Cold and Warm Start Module 



44 



09-Dec-fll 



35 
36 
37 
38 
39 
40 
41 
42 
43 
44 
45 
46 
47 
48 
49 
50 
51 
52 
53 
54 
55 
56 
57 
58 
59 
60 
61 
62 
63 
64 
65 
66 
67 
68 
69 
70 
71 
72 
73 
74 
75 
76 
77 
78 
79 
80 
81 
82 
83 
84 
85 
86 
87 
88 
89 



0E00 
0800 
0004 
00 2 C 
0062 



0034' 


3E 


C3 


0036' 


2 1 


F206' . 


0039' 


BE 




003A' 


20 


1C 


003C ' 


32 


0000 - 


003F' 


32 


0005 


0042' 


22 


0006 


0045' 


2 1 


0003' 


0048' 


22 


0001 


004B' 


ED 


4B 0004 


004F ' 


2 1 


EAOO' 


UUOU 

0052' 


3E 


03 


0054' 


32 


0050' 


0057 ' 


E9 




0058' 


CD 


01 15' 


005B' 


OD 


OA 42 6F 


005F ' 


6F 


74 20 45 


0063' 


72 


72 00 


0066' 


CD 


0009' 


0069' 


31 


0100 


006C 


CD 


013F' 


006F' 


4F 




0070' 


3E 


2C 


0072' 


32 


OODO' 


0075' 


21 


E980' 


0078' 


22 


013B' 


007B' 


CD 


001B' 


007E' 


7C 




007F ' 


B5 




0080 ' 


28 


D6 


0082' 


. 23 




0083' 


7E 




0084 ' 


• 32 


0122' 


0087' 


E5 




0088' 


OE 


00 


008A' 


CD 


012 1' 


008D' 


79 




008E' 


32 


0133' 


0091 * 


£1 




0092' 


1 1 


0009 


0095' 


19 




0096' 


4E 




0097' 


23 





bdos 1 n 
ccplen 
c d i s k 
nsec ts 
rev 



wbt5: 



wbtcom 



wbterr : cal 1 
db 



equ OeOOh -.Length of CP/M v 2.2 BDOS 

equ OBOOh ; Length of CP/M v 2.2 CCP 

equ 4 jCurrent user/disk 

equ (ccpl en+bdos In) / 1 28 ; number of sectors for ccp + bdos 

equ ' b ' 

Wboot - Warm Start CP/M. 

Id a,0c3h ;p»ant jumps 

Id hi ,bios-bdosln+6 

cp (hi) 

jr nz, wbterr. ;if no jump to bdos 

Id (0),a 

Id (5),a 

Id (6),h1 ;set address of jump to bdos 

Id hl.bwboot ;set warm boot address 

I d ( 1 ) , h 1 

Id bc.(cdisk) ;set current disk / user 

Id hi .bios-bdosln-ccplen ;Enter CCP 

equ $-2 ;patch to "03" to disable warm boot command 

Id a, 3 

Id (wbtcom) ,a 

jp (hi) 

pmsg ^display error message 

13, 10, 'Boot Err' ,0 



call bconin ;wait for key 

wboot: Id ' sp.lOOh ;use external stack 

call dbopt ; inform deblocker 

Id c.a ;(zero) select A: 

Id a.nsects ;set number of sectors to read 

Id (seccnt),a ;set sector counter 

Id hi ,bios-bdos In-ccpl en- 1 28 

Id (dmabas).hl ;set base track dma address 

call bseld % -.select boot drive (A:) 

Id a,h 

or 1 

jr z, wbterr 

inc hi 

Id a, (hi ) 

id ( x late) , a 

push hi 

id c,0 

ca 1 I mis 

id a , c 

Id ( t ransz) , a 

pop hi 

Id de, 10-1 

add hi ,de 

Id c,(hl) 

inc hi 



;point to high translate address 

jtranslate sector zero 

;set sector zero translate value 
;of f set to dpb 
;get dpb address 



> 

"O 

r> 
a. 
x' 
x 



x 



XEROX 820- 
Cold and I 

90 

9 1 

92 

93 

94 

95 

96 

97 

98 

99 
100 
101 
102 
103 
104 
105 
106 
107 
108 
109 
1 10 
1 1 1 
1 12 
1 13 
1 14 
1 15 
1 16 
1 17 
1 IB 
1 19 
120 
121 
122 
123 
124 
125 
126 
127 
128 
129 
130 
131 
132 
133 
134 
135 
136 
137 
138 
139 
. 140 
141 
142 
143 
144 
145 



II BI( 


JS 


MACRO-80 


3 


farm S 


tai t Modu 1 e 




0098' 


46 






0099' 


OA 






009A' 


32 


OODC 




009D- 


2 1 


OOOD 




00A0' 


09 






00A1 ' 


4E 






00A2' 


23 






00A3* 


46 






00A4' 


OB 






00A5' 


IE 


01 




00A7' 


B7 






00A8' 


28 


06 




OOAA' 


4A 






OOAB' 


FE 


IB 




OOAD' 


38 


01 




OOAF ' 


4B 






00B0' 


C5 






00B1 


D5 






00B2' 


CD 


001E' 




00B5' 


CI 






00B6' 


C5 






00B7 ' 


CD 


0121 ' 




OOBA' 


E5 






OOBB' 


CD 


0021 ' 




OOBE' 


CI 






OOBF ' 


21 


FFFE' 




00C2' 


ED 


42 




00C4' 


38 


12 




00C6' 


CD 


0024' 




00C9' 


CD 


01EB* 




OOCC 


B7 






OOCD' 


20 


89 




OOCF ' 


3E 


00 




OODO ' 








00D1 ' 


3D 






00D2' 


32 


OODO' 




00D5' 


CA 


0034' 




00D8' 


CI 






00D9' 


OC 






OODA' 


79 






OODB' 


FE 


FF 




OODC' 








OODD' 


20 


D7 




OODF ' 


41 






OOEO' 


2 A 


013B' 




00E3V 


1 1 


0080 




00E6' 


19 






00E7 ' 


10 


FD 




00E9' 


2 2 


013B' 




OOEC 


CI 






OOED' 


OC 






OOEE ' 


58 






OOEF' 


18 


BF 





.44 



09-Dec- 


81 






Id 


b.(hl ) 




Id 


a, (be) 




Id 


(spt) , a 




Id 


hi , 13 




add 


hi ,bc 




Id 


c,(hl) 




inc 


hi 




Id 


b,(hl) 




dec 


be 




Id 


e, 1 




or 


a 




jr 


z , wbt 1 




Id 


c.d 




cp 


26+1 




jr 


c.wbt 1 




Id 


c ,e 


wbt 1 : 


push 


be 




push 


de 




cal 1 


bsett 




pop 


be 


wbt2: 


push 


be 




cal 1 


ml s 




push 


hi 




cal 1 


bsets 




pop 


be 




Id 


hi ,bios-2 




sbc 


hi ,bc 




jr 


c ,wbt3 




cal 1 


bsetd 




cal 1 


read 




or.' 


a 




jr 


nz , wbter r 




Id 


a,0 


seccnt 


equ 


$-1 




dec 


a 




Id 


(seccnt) ,a 




JP 


z , wbt5 


wbt3: 


pop 


be 




inc 


c 




Id 


a ,c 




cp 


-1 


spt 


equ 


$-1 




jr 


nz , wbt2 




Id 


b.c 




Id 


hi , (drnabas ) 




Id 


de, 128 


wbt4 :' 


add 


hi ,de 




djnz 


wbt4 




Id 


t (drnabas) , hi 




pop 


be 




inc 


c 




Id 


e,b 




jr 


wbt 1 



;get low sectors per track 



;get reserved tracks 



;set sector 1 

;test low sectors per track 

; i f ri.gid di sk 

;set track 

;if single density 8" or 5" 

jdouble density starts on track 1, sector 1 

;save track 

;save starting sector 

-.position disk 

;save sector 
;map logical sector 
;save address 
;set sector 



; i f within bios 
;set dma address 
; read next sector 

; i f 1 oad error 

jupdate sectors read counter 



; i f end of 1 oad 
jadvance sector 



;if not end of track 
jadvance base dma address 
;by spt*128 

; advance track 

;and restart on sector 



Cold Start CP/M. 



00F1 ' 


CD 


01 


15' 




00F4' 


1A 


58 


65 


72 


00F8' 


6F 


78 


20 


36 


OGFC 


30 


6B 


20 


43 


OlOO' 


50 


2F 


4D 


20 


0104' 


76 


65 


72 


73 


0108' 


20 


32 


2E 


32 


010C 


62 








010D' 


20 


23 


32 


2D 


01 VI ' 


3 2 


39 


34 




0114' 


00 









01 15' 


El 




116' 


7E 




117 


2 3 




01 18' 


B7 




01 19' 


E5 




01 1A' 


C8 




01 IB' 


4F 




01 IC 


CD 


OOOC 


01 IF ' 


18 


F4 



X XEROX B20-II BIOS MACR0-80 3.44 
-fc* Cold and Warm Start Module 



146 
147 
148 
149 
150 
151 
152 
153 
154 
155 
156 
157 
158 
159 
160 
161 
162 
163 
164 
165 
166 
167 
168 
169 
170 
171 
172 
173 
174 
175 
176 
177 
178 
179 
180 
181 
182 
183 
184 
185 
186 
187 
188 
189 
190 
191 
192 
193 
194 
195 
196 
197 



09-Dec-8l 



cboot : call 
db 



012 1 


3E 


00 


0122' 






0123' 


B7 




0124' 


79 




0125' 


28 


OB 


0127' 


87 




0128 ' 


2A 


OODC 


012B' 


BD 




012C 


38 


02 


012E' 


95 




012F" 


3C 




0130' 


3C 




0131 ' 


4F 




0132' 


D6 


00 


0133' 






0134' 


IF 




0135' 


67 




0136' 


2E 


00 


0138' 


CB 


ID 


013A* 


1 1 


0000 


013B' 






01 3D' 


19 




013E' 


C9 





pmsg : 



prnsg ;Announce CP/M size and version 

26, 'Xerox 60k CP/M vers 2. 2', rev 



db 


' #2-294' 


db 





pmsg - 


- print mess 


pop 


hi 


Id 


a. (hi) 


inc 


hi 


or 


a 


push 


hi 


ret 


Z 


Id 


c ,a 


cat 1 


bconot 


jr 


pmsg 



mis - map logical sector. 



mis: 


Id 


a,0 


x 1 ate 


equ 


$-1 




or 


a 




Id 


a ,c 




jr 


2 , m 1 s 2 




add 


a ,a 




Id 


hi , (spt) 




cp 


1 




jr 


c , m 1 s 1 




sub 


1 




inc 


a 


m I s 1 : 


inc 


a 




Id 


c ,a 


mls2: 


sub 





t ransz 


equ 
rra 


$-1 




Id 


h,a 




Id 


1 ,0 




rr 


1 




Id 


de.O 


dmabas 


equ 


$-2 




add 


hi ,de 




ret 






Subtt » 


CHAR 10 - 




page 





; print message after call 

;if end of message 

jdisplay message at current console 

;set translate address 



;if not single density 
; read by half tracks 
;get sectors per track 

;if not past end of track 

;offset back to beginning of track 

;map sector 0->l 

;offset by translate of sector zero 



;set base dma for this track 

; compute address for this sector 



Character I/O Module 



> XEROX 820-11 BIOS MACRO-80 3.44 09-Dec-81 

13 CHAR 10 - Character I/O Module 

13 

CL 



198 




199 




200 


F000 


201 




20 2 


F04B 


203 


F04E 


204 


F051 


205 


F054 


206 


F057 


207 


F05D 


208 


F060 


209 




210 




2 1 1 





X 

X 202 F04B const equ monitr+4bh 

moni t r+4eh 
moni t r+51h 
moni tr+54h 
moni t r+57h 
moni t r+5dh 
moni t r + 60h 



moni t r 


equ 


const 


equ 


conin 


equ 


conout 


equ 


1 ist 


equ 


1 istst 


equ 


reader 


equ 


punch 


equ 




Subtt 1 




page 



OfOOOh ;82Q+ Resident Monitor Address 



CP/M Deblocking Driver 



X 
en 



X XEROX .820-1 I BIOS 

Oft CP/M Deblocking Driver 



212 

2 13 

214 

2 15 

216 013F' 

217 

218 

219 

220 000A 

221 000B 

222 OOOD 

223 001B 
224 

225 451B 

226 521B 
227 
228 
229 

230 F02A 

231 0004 
232 
233 
234 

235 0000 

236 0001 

237 -0002 
238 
239 
240 
241 
242 
243 
244 
245 
246 
247 
248 
249 
250 
251 
252 
253 
254 
255 
256 
257 
258 
259 
260 
261 
262 
263 

264 
265 
266 014F' AF 



MACRO-80 3.44 



09 L Dec-8 1 



> 
■D 



013F ' 


21 


0000 


0142' 


2 2 


021A 


0145* 


2 1 


021C 


0148' 


01 


2000 


014B' 


71 




014C 


23 




014D' 


10 


FC 



xqdvr 
cdi sk 



wral 1 
wrdi r 
wrua 1 



skip 



dboot ; 



dbt2: 



CP/M Deblocking Driver, 
cseg 



« i 




Asc i i . 




if 




equ 


10 


up 




equ 


1 1 


cr 




equ 


13 


esc 




equ 


27 


ins 1 


in 


equ 


(' 


del 1 


in 


equ 


(' 



( 'E' shl 8) ■»• esc 
( 'R' shl 8) + esc 



Absolute Machine Addresses. 



equ 
equ 



0f02ah 
4 



CP/M Write Types. 

equ 
equ 1 
equ 2 



;Resident Monitor Driver Executioner 
;CCP active user/disk 



jnormal write to allocated sector 

;write to directory sector 

;first write to unallocated block 



skip - skip next instruction. 

Uses HL to perform very short jumps 



macro 


n 


if 


((n)-$) eq 2 


db 


26h 


end i f 




if 


((n)-$) eq 3 


db 


21h 


endi f 




endm 





; ; ;set PC = $+2 (Id h, . . . ) 
; ; ;set PC = $+3 (Id hi .... ) 



Dboot - Deblocking Bootstrap. 

Entry: Called prior to Warm Start reload. 

.initialize host buffer address 



Id hl.hstbuf 

Id (hstdma) ,hl 

Id hl.dphtab 

Id bc,!6*2*256 

Id (hi ) ,c 

inc hi 

djnz dbt2 



;clear internal DPH table of addresses 
;set table length, zero 
; c 1 ear next byte 



; i f tabl e not c 1 ear 
clract - Clear host buffer act i ve . 



c 1 ract : xor 



> 

r> 

X* 
X 



XEROX 820-11 BU)t» 
CP/M Deblocking Of 



MACRO-80 3.44 



09-Dec-ai 






267 
268 
269 
270 
271 
272 
273 
274 
275 
276 
277 
278 
279 
280 
28 1 
282 
283 
284 
285 
286 
287 
288 
289 
290 
291 
292 
293 
294 
295 
296 
297 
298 
299 
300 
301 
302 
303 
304 
305 
306 
307 
308 
309 
310 

31 1 
312 
313 
314 
315 
316 
317 
3 18 
319 
320 

32 1 
322 



0150' 
0153' 



3 2 
C9 



026E' 



0154' 


79 




0155' 


3 2 


0205 


0158' 


06 


00 


Q15A' 


21 


021C 


015D' 


09 




015E' 


09 




1 5F ' 


CB 


43 


0161 ' 


28 


OA 


0163' 


7E 




0164' 


23 




0165' 


66 




0166' 


6F 




0167 ' 


B4 




168' 


20 


19 


016A' 


5F 




016B' 


18 


ED 


016D' 


E5 




016E* 


21 


0202 


17 1' 


71 




017 2' 


2B 




0173' 


2B 




0174' 


36 


FF 


0176' 


CD 


02DF 


0179' 


EB 




017A' 


El 




017B' 


73 




017C 


23 




017D' 


72 




017E' 


EB 




017F' 


7D 




0180' 


B4 




0181 ' 


28 


22 


0183' 


E5 




0184 ' 


1 


OQOA 


0187' 


09 




0188' 


5E 




0189' 


23 




018A' 


56 




01BB' 


EB 




018C 


2 2 


0241 


018F' 


OE 


03 


0191 ' 


09 




0192* 


7E 




193' 


3C 




194' 


.3 2 


021B 


019 7' 


OE 


OC 


0199' 


09 





Id 
ret 

select 

Entry: 



(hstact ) , a 



idear host buffer active 



se 1 dsk : 


Id 


a , c 




Id 


(sekdsk ) , a 




Id 


b,0 


sell: 


Id 


hi .dphtab 




add 


hi ,bc 




add 


hi ,bc 




bit 


0,e 




jr 


z,se!2 




Id 


a. (hi) 




inc 


hi 




Id 


h,(hl) 




Id 


1 ,a 




or 


h 




jr 


nz , sel 3 




Id 


e , a 




jr 


sel 1 


sel2: 


push 


hi 




Id 


hi , selcmd+2 




Id 


(hl),c 




dec 


hi 




dec 


hi 




Id 


(hl),-l 




cal 1 


xdr 




ex 


de.hl 




pop 


hi 




Id 


(hl),e 




inc 


hi 




Id 


(hl),d 




ex 


de.hl 




Id 


a, 1 




or 


h 




jr 


z , se 1 4 


se 1 3 : 


push 


hi 




Id 


be, 10 




add 


hi, be 




Id 


e,(hl) 




inc 


hi 




Id 


d.(hl) 




ex 


de.hl 




Id 


(dpbadr) ,hl 




Id 


c,3 




add 


hi ,bc 




Id 


a, (hi) 




inc 


a 




Id 


(rpb) ,a 




Id 


c, 15-3 




add 


hi ,bc 



- select CP/M disk. 

C = CP/M Logical Drive, 0-15. 

E = 2*n+0 if media identification required 

E = 2*n+1 if media previously identified 

; remember disk to seek 



;set table of remembered dph's 
; i ndex by words 



;if drive not previously selected 

;set disk parameter header address in hi 



;if previous select succesful 
;fbrce media identification 

;save dph table address 

;set CP/M Logical drive 

;point to select command 
;set driver select operation 
;execute driver request 

; remember disk parameter header address 



;if drive not succesful 1y selected 

;save dph address 

;set dpb offset in dph 

;set disk parameter block address 



;set block shift factor 

;form 128 byte records per block 

;point to end of dpb 



00 



> 

Q- 

x' 

X 



Q19A' 


7E 




019B' 


3 2 


0208 


019E' 


E6 


07 


01A0' 


3 2 


029B 


01A3 ' 


El 




01A4' 


C9 




01A5' 







01A5' 


21 


0004 


01A8' 


3A 


0205 


01AB' 


AE 




01AC ' 


E6 


OF 


01AE' 


20 


04 


01B0' 


7E 




01B1 ' 


E6 


FO 


01B3' 


77 




01B4 ' 


6C 




01B5' 


C9 





XEROX 020- I I BIOS 
CP/M Deblocking Driver 



323 
324 
325 
326 
327 
32B 
3 29 
330 

33 1 
332 
333 
334 
335 
336 
337 
338 
339 
340 

34 1 
34 2 
343 
344 
345 
346 
347 
348 
349 
350 
351 
352 
353 
354 
355 
356 
357 
358 
359 
360 
361 
362 
363 
364 
365 
366 
367 
360 
369 
370 
371 
372 
373 
374 
375 
376 
377 
378 



MACRO-BO 3.44 



01B6' 



01B9' 
01BD' 



01BE' 
01C2' 



01C3' 
01C7' 



1 0000 



ED 43 0206" 
C9 



ED 43 020C 
C9 



ED 43 020A' 
C9 



09-Dec-81 




Id 


a. (hi) 


Id 


( trkzf 1 ) ,a 


and 


7 


Id 


( secmsk ) , a 


pop 


hi 


ret 





se!4: 



;set internal parameter 

;set track zero single density flag 

;set sector mask 

;fall into clear active disk 



cad 



Clear Active Disk. 



cadi : 



home : 



Id 


hi , c d i s k 


Id 


a , (sekdsk) 


xor 


(hi) 


and 


not 11110000b 


jr 


nz , cadi 


Id 


a, (hi) 


and 


not 1111b 


Id 


(hi), a 


Id 


1 ,h 


ret 





;get disk that CCP will log in 
;get disk that failed 

;clear active user 

;if selected disk is not default disk 

;cause CCP to log in A; 

jretain active user area 

;indicate select failure 



;seek track zero 



settrk: Id 
ret 



Home - Set Track Zero. 
Id bc.O 
Settrk - Set Track. 
Entry; BC = Track number 

(sektrk).bc ;set track to seek 



setsec; Id 
ret 



Setsec - Set Sector. 
Entry: BC = Sector number 

(seksec).bc ;set sector to seek 



Setdma - Set Direct Memory Address. 
Entry: BC = DMA address 



setdma: Id 
ret 



( sekdma) , ttc 



Sectran - Sector Translate. 

Entry: BC = Sector number, <= BC < Sectors per Track 
DE = Single byte skew table address 



Exit; 



01C0' 



69 



sectrn: Id 



HL = BC 
L = (DE+BC) 
H = B 

1 ,c 



if DE = 
if DE <> 
which better be zero 

;set untranslated sector 



> 

u 
a. 

X* 



X 



379 
380 

38 1 
382 
383 
384 
385 
386 
387 
388 
389 
390 

39 1 
392 
393 
394 
395 
396 
397 
398 
399 
400 
401 
402 
403 
404 
405 
406 
407 
408 
409 
410 
41 1 
4 12 
413 
414 
415 
4 16 
417 
4 18 
419 
420 
421 
422 
423 
424 
425 
426 
427 
428 
429 
430 
431 
432 
433 
434 



II BIOS 


MACRO-80 


ck iny 


D 


i v e r 


01C9* 




60 


01CA ' 




7A 


01CB' 




B3 


G1CC 




C8 


01CD' 




EB 


OICE' 




09 


OlCF' 




6E 


01 DO' 




60 


01D1 ' 




C9 



3.44 



09-Dec-8 1 



01D2' 


3A 


02AE 


01D5' 


21 


0203 


01D8' 


18 


07 



01 DA' 
01 DC 



G1DD' 
01DE' 



3E 01 

26 



AF 

21 0213* 



rdwrs : 



readhs : 



wriths; 



01E1 ' 


77 




01E2' 


CD 


02DF 


01E5' 


2 1 


02BE 


01E8' 


B6 




G1E9' 


77 




01EA' 


C9 





01EB' 


AF 




01EC* 


3 2 


0226 


01EF' 


OE 


00 


01F1 ' 


3C 





read ; 



Id 

Id 

or 

ret 

ex 

add 

Id 

Id 

ret 



h, 


b 


a , 


d 


e 




2 




de 


s.hl 


hi 


,bc 


1 . 


(hi) 


h. 


b 



if no translate table 



;single byte translate 



Rdwrs - Read or Write Single Density. 



Id 
Id 
jr 

Readhs 

Id 

skip 

db 

Wri ths 

xor 
Id 

Rdwrhs 

Entry : 



Exit: 



Id 

cal 1 

Id 

or 

Id 

ret 

Read - 

Entry : 

Exit: 



xor 
Id 
Id 
inc 
sk ip 



a.(readop) ;set read/write operation 

hl.sekcmd ;set seek request 

rdwrhs jenter read/write dispatcher 



Read Host Sector. 



a, 1 
$+2 
26h 



;set read operation 

-, jump over write entry point 



Write Host Sector. 



;set write operation 



hi , hstcmd 

- Read or Write Host Sector. 

HL = Physical command request address 
A = to write 
A = 1 to read 

A = O, if no errors 

A = - 1 , if errors 

Z = condition of A reg 



(hi ) ,a 

xdr 

hi , erf 1 ag 

(hi) 

(hi), a 



;set driver operation 

;execute driver read or write 

;merge error flag for directory protection 



Read CP/M Sector. 

Seldsk, Settrk, Setsec, Setdma previously called 

A = i f no errors 
A = - 1 if errors 



(unacnt ) .a 
c , wra 1 I 
a 
$+2 



;clear unalloc processing 

jinhibit buffer flush after read 
;set read operation 



X 

—A 

o 
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> 

m 
x' 



435 
436 
437 
438 
439 
440 
441 
44 2 
443 
444 
445 
446 
447 
448 
449 
450 
451 
452 
453 
454 
455 
456 
457 
458 
459 
460 
461 
462 
463 
464 
465 
466 
467 
468 
4 69 
470 
471 
472 
473 
474 
475 
476 
477 
478 
479 
480 
481 
482 
483 
484 
485 
486 
487 
488 
489 
490 



1 F 2 ' 



26 



01F3' 



AF 



01F4' 


32 


02AE 


01F7 * 


AF 




01F8' 


32 


02BE 


01FB' 


2A 


020C 


01FE' 


2 2 


0208 


0201 ' 


3A 


029B 


0204 ' 


B7 




0205' 


28 


CB 


0207 ' 


F6 


00 


0208' 






0209' 


F2 


0212 


Q20C 


3A 


0206 


020F ' 


B7 




02 10' 


28 


CO 


0212' 


" 79 




0213' 


3 2 


02BA 


0216' 


FE 


02 


02 18' 


20 


OB 


021A' 


3E 


00 


021B' 






02 It' 


3 2 


0226 


02 IF' 


1 1 


020E 


0222' 


CD 


02D6 


0225' 


3E 


00 


0226' 






0227' 


B7 




0228' 


28 


2E 


022A' 


3D 




022B' 


32 


0226 


022E' 


2 1 


0205 


0231 ' 


1 1 


020E 


0234 * 


CD 


02CC 


0237 ' 


20 


IB 


0239' 


2A 


02 1 1 


023C ' 


2 3 




023D' 


2 2 


021 1 


0240' 


1 1 


0000 


0241 ' 






0243' 


ED 


52 



db 

Wri te 
Entry : 
Exit : 



26h 

Write CP/M Sector. 

Seldsk, Settrk, Setsec, Setdma previously called 

A = if no errors 
A = - 1 if errors 
C = Write type 

;set write operation 



write: 


xor 


a 


; ; 


Rdwr - 


Read or Write. 




Entry : 


A = to write 
A = 1 to read 


rdwr : 


Id 


( readop) , a 




xor 


a 




Id 


(erf 1 ag) , a 




Id 


hi , (seksec) 




Id 


(sekhst ) .hi 




Id 


a , (secmsk) 


i 


or 


a 




' jr 


z.rdwrs 




or 





trkzf 1 


equ 


$-1 




JP 


p , rdwr 1 




Id 


a , (sekt rk) 




or 


a 




jr 


z , rdwrs 


r d w r 1 : 


Id 


a, c 




Id 


( wr type ) , a 




cp 


wrual 




jr 


nz , wr i t 1 




Id 


a,0 


r pb 


equ 


$-1 




Id 


(unacnt ) , a 




Id 


de.unadsk 




cal 1 


cpb 


wri t 1 : 


Id 


a.O 


unacnt 


equ 


$-1 




or 


a 




jr 


z , wr i t4 




dec 


a 




Id. 


(unacnt ) , a 




Id 


hi , sekdsk 




Id 


de.unadsk 




cal 1 


cmp 




jr 


nz,writ3 




Id 


hi , (unasec ) 




inc 


hi 




Id 


(unasec ) ,hl 




Id 


de.O 


dpbadr 


equ 


$-2 




sbc 


hl.de 



;set read/write switch 
jreset error flag 

;set seek host sector 

;set sector size 

;if deblocking not required 

;check track zero single density flag 

;if track zero not single density 
;set seek track 

;if track 0, read or write without deblocking 
;save write type 



;if not write to unallocated group 
;set records per block 

;start counting unallocated writes 

;set unallocated parameter block address 

;copy parameter block 

;set remaining unallocated sectors 



;if not processing unallocated group 

;update unallocated sectors remaining 

;set seek parameters 

;set unallocated parameters 

; compare parameter blocks 

;if not seek to unallocated sector 

-.advance unallocated sector 



;set sectors per track 



> 

•D 



XEROX 820- 



491 
492 
493 
494 
495 
496 
497 
490 
499 
500 
501 
502 
503 
504 
505 
506 
507 
500 
509 
510 
51 1 
512 
513 
514 
515 
516 
517 
51B 
519 
5 20 
521 
522 
523 
524 
5 25 
526 
527 
520 
529 
530 
531 
532 
533 
534 
535 
536 
537 
538 
539 
540 
54 1 
542 
543 
544 
545 
546 



II BIOS 




MACRO-BO 


eking D 


iver 


0245' 


20 


OA 


0247 ' 


22 


02 1 1" 


024A' 


2A 


020F" 


024D' 


23 




024E' 


22 


020F" 


0251 ' 


AF 




0252' 


18 


05 


0254' 


AF 




0255' 


32 


0226' 


0258' 


3C 





3.44 



0259' 


32 


028B' 


025C 


3A 


029B' 


025F ' 


2A 


020C" 


0262* 


CB 


3C 


0264' 


CB 


ID 


0266' 


CB 


3F 


0268' 


20 


FB 


026A' 


22 


0208" 


026D* 


F6 


00 


026E' 






026F' 


3E 


01 


0271 ' 


32 


026E' 


0274' 


28 


OE 


0276' 


21 


0215" 


0279' 


1 1 


0205" 


027C 


CD 


02CC 


027F' 


28 


16 


0281 ' 


CD 


02C2' 


0284' 


1 1 


0215" 


0287' 


CD 


02D6' 


028A' 


3E 


00 


028B' 






020C 


B7 




0280' 


C4 


01DA' 


0290' 


B7 




029 1 ' 


C4 


0I4F' 


0294 * 


3 2 


Q2C3' 


0297 ' 


3A 


020C" 


029A' 


E6 


00 


029B' 






029C 


IF 




029D' 


57 




029E' 


3E 


00 


02A0' 


IF 




02A1 ' 


5F 




02A2' 


2 A 


021A" 


02A5' 


19 




02A6' 


ED 


5B 020A 


02AA' 


01 


0080 


02AD' 


3E 


00 


02AE' 






02AF' 


B7 




02B0' 


20 


05 



09-Dec- 


-81 




jr 




Id 




Id 




inc 




Id 


wri t2: 


xor 




jr 


wri t3: 


xor 




Id 


w ri 1 4 : 


inc 



nz ,wri t 2 

(unasec ) ,hl 

hi , (unatrk) 

hi 

(unatrk) ,hl 

a 

rwoper 



;if not end of track 
jreset to sector zero 
jadvance unallocated track 



(unacnt ) , a 
a 



;inark pre-read not required 
jclear unallocated processing 
;inark pre-read required 
Rwoper - Read or Write 0perati6n Proper. 



;set pre-read block flag 
;set shift counter 



rwoper ; 


Id 


( rsf lag) , a 




Id 


a, (secmsk) 




Id 


hi , ( seksec) 


rwopl : 


srl 
rr 


h 
1 




srl 


a 




jr 


nz , rwop 1 




Id 


(sekhst) ,hl 




or 





h s t a c t 


equ 


$-1 




Id 


a, 1 




Id 


(hstact ) , a 




jr 


z , rwop2 


i 


Id 


hi .hstdsk 




Id 


de , sekdsk 




cat 1 


cmp 




jr 


z , rwop3 




cal 1 


f lush 


rwop2 : 


Id 


de .hstdsk 




ca 1 1 


cpb 




Id 


a,0 


rsf 1 ag 


equ 


$-1 




or 


a 




cal 1 


nz , readhs 




or 


a 




cal I 


nz , c 1 ract 




Id 


(hstwrt ) , a 


rwop3 : 


Id 


a, (seksec) 




and 





secmsk 


equ 
rra 


$-1 




Id 


d,a 




Id 


a,0 




rra 






Id 


e , a 




Id 


hi , (hstdma) 




add 


hi ,de 




Id 


de , (sekdma) 




Id 


be, 128 




Id 


a.O 


readop 


equ 


$-1 




or 


a 




jr 


nz , rwop4 



jcompute host sector = cpmsec/ (2**sekmsk) 



;if shift incomplete 
;set seek host sector 
;check host active flag 



host buffer always becoms active 

if host buffer was not active 

set active host buffer identification 

set seek identification 

compare seek request with active host sector 

if host buffer contains seek sector 

flush buffer if previously written 

set host request block address 

copy seek parameter block to host 

check pre-read required 



; read host sector if preread required 

jclear host buffer active if read errors 

-.mark buffer not written into 

;set seek sector 

jform host buffer index from sector mask 



•.multiply index by 128 bytes/sector 



;set host buffer address 
;form seek buffer address 
;set user transfer address 
;set CP/M sector length 
;set transfer direction 



;if read operation 



— I 



> 
X3 
13 

n> 

Q- 

x\ 
X 



547 
548 
549 
550 
55 1 
552 
553 
554 
555 
556 
557 
558 
559 
560 
561 
562 
563 
564 
565 
566 
567 
568 
569 
570 
571 
57 2 
573 
574 
575 
576 
577 
578 
579 
580 
581 
582 
583 
584 
585 
586 
587 
588 
589 
590 
59 1 
592 
593 
594 
595 
596 
597 
598 
599 
600 
601 
602 
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MACRO-80 


ck imj 


D 


i v e r 


02B2' 




EB 




02B3' 




3C 




02B4' 




32 


02C3' 


02B7 * 




ED 


BO 


02B9' 




3E 


00 


02BA' 








02BB' 




FE 


01 


02BD' 




3E 


00 


02BE' 








02BF * 




CO 




02C0' 




B7 




02C1 ' 




CO 





3.44 



02C2* 


3E 


00 


02C3 ' 






02C4' 


B7 




02C5' 


C4 


01DD 


02C8' 


3 2 


02C3 


02CB' 


C9 





Q2CC 


06 


02CE' 


1A 


02CF ' 


AE 


02DO' 


CO 


02D1 ' 


13 


02D2' 


23 


02D3' 


10 


02D5' 


C9 



05 



F9 



02D6' 


2 1 


0205 


02D9' 


1 


0005 


02DC 


ED 


BO 


02DE' 


C9 





09-Dec- 


81 






ex 


de.hl 




inc 


a 




Id 


(hstwrt ) ,a 


rwop4 : 


Idir 






Id 


a,0 


wrt ype 


equ 


s-i 




cp 


wrdi r 




Id 


'a.O 


erf 1 ag 


equ 


$-1 




ret 


nz 




or 


a 




ret 


nz 



f lush: 
hstwrt 



cmp ; 
cmp 1 ! 



cpb: 



.switch directions 

;mark buffer written into 

;move sector to/frorn user buffer 

;set write type 



;set error flag 



Flush 

Id 

equ 

or 

cal 1 

Id 

ret 

Cmp - 

Entry : 

Exi t : 

Id 

Id 

xor 

ret 

inc 

inc 

djnz 

ret 

Cpb - 

Entry : 

Exit: 

Id 
Id 

Idir 
ret 

Xdr - 

Entry : 

Exi t : 



;if errors, do not clobber directory 
Flush buffer to disk. 

jcheck host written flag 



a.O 

$-1 

a 

nz , wri ths 

(hstwrt ) ,a 



;if buffer written into, write host sector 
;clear host written flag if no errors 



Compare Paramater Blocks. 

HL = Parameter block 
DL = Parameter block 

Z = Set if parameters identical 
Z = Clear if parameters different 



b,5 

a, (de) 

(hi) 

nz 

de 

hi 

cmpl 



;set length of parameter block 
{Compare next byte 

;if parameters different 
; i f more bytes 



Copy Parameter Block. 

DE = Address of Unallocated or Host parameter block 
Seek parameter block copied into block at DE 



hi , sekdsk 
be. 5 



;set. source parameters 
jset block length 
;copy parameter block 



Execute Driver Request. 

HL = pointer ti Physical Driver Request Block 

Physical Driver exit condition are maintained if 
no errors or user did not request warm start. 



> 

X3 

a> 

3 
O. 

X 



X 
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603 
604 
605 
606 
607 
60B 
609 
610 
61 1 
612 
613 
614 
615 
616 
617 
618 
619 
620 
621 
622 
623 
624 
625 
626 
627 
620 
629 
630 
631 
632 
633 
634 
635 
636 
637 
638 
639 
640 
64 1 
642 
643 
644 
645 
646 
647 
648 
649 
650 
651 
652 
653 
654 
655 
656 
657 
658 
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02DF ' 


2 2 


02EA' 




02E2' 


2A 


02EA' 




02E5' 


CD 


F02A 




02E8* 


47 






02E9' 


3A 


Q2EA' 




02EA' 








02EC 


4F 






02ED' 


3C 






Q2EE' 


20 


05 




02F0' 


B5 






02F1 ' 


B4 






02F2' 


CO 






02F3' ^ 


18 


03 




02F5' 


78 






02F6' 


B7 






C2F7' 


C8 






02F8' 


2A 


02EA' 




02FB* 


23 






02FC 


2 3 






02FD' 


7E 






02FE' 


C6 


41 




0300' 


32 


0330' 




0303' 


OC 






0304' 


20 


OC 




0306' 


CD 


0375' 




0309' 


53 


65 6C 


65 


030D' 


63 


74 00 




0310* 


18 


16 




0312' 


OD 






0313' 


20 


OB 




0315' 


CD 


0375' 




0318' 


57 


72 69 


74 


031C ' 


65 


00 




03 IE ' 


18 


08 




0320' 


CD 


0375' 




0323' 


52 


65 61 


64 


0327 ' 


1)0 






0328* 


CD 


01 15' 




032B' 


20 


45 72 


72 


032F ' 


20 






0330' 


64 


3A 20 




0333' 


41 


28 63 


63 


0337' 


65 


70 74 


29 


033B' • 


2C 


20 




033D' 


49 


28 67 


6E 


0341 ' 


OF 


72 65 


29 


0345' 


2C 


20 




0347' 


52 


28 65 


74 


034B' 


72 


79 29 


20 


034F' 


00 






0350' 


CD 


0009' 




0353' 


F5 






0354 ' 


CD 


01 15' 




0357 ' 


OD 






0358' 


5 2 


B 





xdr : 


Id 


( xdra) , hi 


xdr 1 : 


Id 


hi , ( xdra) 




cal 1 


Xqdvr 




Id 


b,a 




Id 


a , (xdra) 


xdr a 


equ 


$-2 




Id 


c ,a 




inc 


a 




jr 


nz , xdr2 




or 


1 




or 


h 




ret 


nz 




jr 


xdr3 


xdr2: 


Id 


a,b 




or 


a 




ret 


z 


xdr3: 


Id 


hi , (xdra) 




inc 


hi 




inc 


hi 




Id 


a, (hi) 




add 


a, 'A' 




Id 


( xdrb) , a 




inc 


c 




jr 


nz , xdr4 




cal 1 


pmsgi 




db 


' Select ' ,0 




jr 


xdr6 


xdr4 .- 


dec 


c 




jr 


nz , xdr5 




cal 1 


pmsgi 




db 


'Write' ,0 




jr 


xdr6 


xdr5 : 


cal 1 


pmsgi 




db 


'Read' ,0 


xdr6 : 


cal 1 


pmsg . 




> db 


' Err ' 


xdrb: 


db 


'd: ' 




db 


' A(ccept ) , 




db 


' I (gnore) , 




db 


'R(etry) ' 




db 







cal 1 


be on in 




push 


af 




cal 1 


pmsg 




db 


cr 




dw 


dellin 



;save request for retrys 
-.restore request address 
jexecute physical driver 
;save read/write error status 
;get driver operation 

;set message index 

;if not select request 

;if dph address returned by driver 

;set read/write error status 

;if no read/write errors 
;put drive name in message 



if not select request 



if not write request 



jinust be read request 



; read character from console 



X XEROX 820-11 BIOS 

T* CP/M Deblocking Di wer 



659 
660 
661 
662 
663 
664 
665 
666 
667 
660 
669 
670 

67 1 
672 
673 
674 
675 
676 
677 
678 
679 
680 

68 1 
68 2 
683 
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035A' 


OB 


00 


035C 


67 




035D' 


6F 




035E ' 


F1 




035F ' 


E6 


5F 


0361 ' 


FE 


03 


0363' 


28 


OA 


0365' 


06 


49 


0367 ' 


ca 




0368' 


06 


F8 


036A' 


C2 


02E2 


036D' 


2F 




G36E' 


C9 




036F ' 


CD 


01A5 


0372' 


C3 


0003 


0375' 


CD 


115 


0378' 


OD 


OA 


037A' 


451 


IB 


037C 


00 




0370' 


C3 


01 15 



09-Dbc 


8 1 






db 


up.O 




Id 


h.a 




Id 


1 .a 




pop 


af 




and 


5fh 




cp 


3 




jr 


z » xdr7 




sub 


' I ' 




ret 


2 




sub 


'A.'-' I ' 




JP 


nz , xdrl 




cpl 






ret 




xdr7 : 


cal 1 


cad 




JP 


bwboot 


pmsgi : 


cal 1 


pmsg 




db 


cr, If 




dw 


ins 1 in 




db 







JP 


pmsg 



;zero dph for accepted or ignored select errors 

; ignore parity, case 

;if warm start requested 

;if user ignored error, don't tell BDOS 

jretry request 

-.clear active disk 



subttl Deblocker Storage Area 
page 



> 
"O 

Q. 

x 



> 

"O 

■o 

0) 



XEROX 820-11 BIOS 
Deblocker Storage Area 

684 
685 
686 
687 

688 J 

689 0000 

690 0380' 
691 

692 

693 

694 

695 

696 

69 7 

698 

699 

700 

701 

702 

703 

704 

705 

706 

707 

708 

709 

710 

71 1 

712 

713 

714 

715 

716 

717 

718 

719 

720 

721 

722 

723 

724 

725 

726 

727 

728 

729 0000" 

730 

731 
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reserve macro s,n 

s equ $+ . 

ase t . +n 

endm 

aset 

dseg 

; ; Host Sector Deblocking Buffer. 

reserve hstbuf,512 

;; Physical Driver Select Command. 

reserve selcmd,3 jselect command, unit, drive 

;; Seek Sector Parameter Block. 



reserve 
reserve 
reserve 
reserve 
reserve 
reserve 
reserve 



sekcmd 
sekunt 
sekdsk 
sektrk 
sekhst 
sekdma 
seksec 



kindl y 
1 eave 
these 
bytes 
al one 



Unallocated Sector Parameter Block. 



reserve unadsk.1 
reserve unatrk,2 
reserve unasec.2 



kindly 
1 eave 
these 



Host Sector Parameter Block. 



reserve hstcmd.1 

reserve hstunt , 1 

reserve hstdsk , 1 

reserve hsttrk,2 

reserve hstsec,2 

reserve hstdma,2 



kind 1 y 
1 eave 
these 
bytes 
al one 



;; Disk Parameter Header Addresses. 
reserve dphtab , ( ' P ' - ' A ' + 1 ) *2 

cseg 

end 



I 


XEROX B20-I I B 


CTh 


Deblocker Stoi , 




Macros : 






RESERVE 






Symbo 1 s 






023C 






0006' 


BCONST 




0000' 


BIOS 




00 1 2 ' 


BPUNCH 




0030' 


BSCTRN 




002 1 ' 


BSETS 




002A ' 


BWRIT 




00F1 * 


CBOOT 




014F' 


CLRACT 




F04E 


CON IN 




02D6 ' 


CPB 




148' 


DBT2 




024 1 ' 


DPBADR 




00 1B 


ESC 




026E' 


HSTACT 




02 1 A" 


H ST DMA 




0216** 


HSTTRK 




0033' 


INITIO 




F054 


LIST 




0130' 


MLS1 




002C . 


NSECTS 




F060 


PUNCH 




01E1 * 


RDWRHS 




F05D 


READER 




0062 


REV 




0262' 


RW0P1 




02B7* 


RW0P4 




029B' 


SECMSK 




020A" 


SEKDMA 




020C" 


SEKSEC 




015A' 


SEL1 




01A5' 


SEL4 




01C3' 


SETDMA 




00DC ' 


SPT 




0226' 


UNACNT 




020F" 


UNATRK 




00B0* 


WBT1 




00E6' 


WBT4 




005B' 


WBTERR 




0225' 


WRIT1 




0258' 


WRIT4 




02BA' 


WRTYPE 




02E2' 


XDR1 




0312' 


XDR4 


> 


036F' 


XDR7 


0122' XLATE 
No Fatal error 



BIOS 
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SKIP 



0009' 


BCONIN 


0E00 


BDOSLN 


000F' 


BPRINT 


0027' 


BREAD 


001B' 


BSELD 


001E' 


BSETT 


01A5' 


CAD 


0800 


CCPLEN 


02CC 


CMP . 


F051 


CONOUT 


000D 


CR 


521B 


DELLIN 


021C" 


DPHTAB 


02C2' 


FLUSH 


0000" 


HSTBUF 


0215" 


HSTDSK 


0214" 


HSTUNT 


451B 


INSLIN 


F057 


LISTST 


0132' 


MLS2 


01 15' 


PMSG 


01F4' 


RDWR 


01D2' 


RDWRS 


01 DA' 


READHS 


021B' 


RPB 


0284' 


RW0P2 


0259' 


RWOPER 


01C8' 


SECTRN 


0205" 


SEKDSK 


0206" 


SEKTRK 


01 60' 


SEL2 


0200" 


SELCMD 


01BE' 


SETSEC 


0133' 


TRANSZ 


020E" 


UNADSK 


OOOB 


UP 


00B6' 


WBT2 


0034' 


WBT5 


0000 


WRALL 


0251 ' 


WRIT 2 


01F3' 


WRITE 


0002 


WRUAL 


02F5' 


XDR2 


0320' 


XDR5 


02EA' 


XDRA 


F02A 


XQDVR 



OOOC 


BCONOT 


0018' 


BHOME 


002D' 


BPRNTS 


0015' 


BREADR 


0024' * 


BSETD 


0003' 


BWBOOT 


01B4' 


CADI 


0004 


CDISK 


02CE' 


CMP1 


F04B 


CONST 


013F* 


DBOOT 


01 38' 


DMABAS 


02BE' 


ERFLAG 


01B6' 


HOME 


0213" 


HSTCMD 


0218" 


HSTSEC 


02C3' 


HSTWRT 


OOOA 


LF 


0121 ' 


MLS 


FOOO 


MONITR 


0375' 


PMSGI 


0212' 


RDWR1 


01EB' 


READ 


02AE' 


READOP 


028B' 


RSFLAG 


0297' 


RW0P3 


OODO' 


SECCNT 


0203" 


SEKCMD 


0208" 


SEKHST 


0204" 


SEKUNT 


0183' 


SEL3 


0154' 


SELDSK 


01B9' 


SETTRK 


0208' 


TRKZFL 


021 1 " 


UNASEC 


0069' 


WBOOT 


00D8' 


WBT3 


0050' 


WBTCOM 


0001 


WRDIR 


0254' 


WRIT3 


01DD' 


WRITHS 


02DF' 


XDR 


02F8' 


XDR3 


0328' 


XDR6 


0330' 


XDRB 



> . 689* 695 695* 695 699 699* 699 703 703* 703 704 704* 

"O 704 705 705* 705 706 706* 706 707 707* 707 708 708* 

"O 708 709 709* 709 713 7 13* 713 714 714* 714 715 715* 

2 715 719 719* 719 720 720* 720 721 721* 721 722 722* 

q^ 722 723 723* 723 724 724* 724 728 728* 728 
--• BCONIN 14* 65 654 

X BCONOT 15* 167 
X BCONST 13* 

BDOSLN 37* 40 46 55 7 1 

BliOME 20* 

BIOS 10* 46 55 71 115 

BPRINT 16* 

BPRNTS 28* 

BPUNCH 17* 

BREAD 25* 

BREAOR IB* •; 

BSCTRN 29* 

BSELD 21* 73 

BSETD 24* 118 

BSETS 23* 113 

BSETT 22* 108 

BWBOOT 11* 52 674 

BWRIT 26* 

CAD 333* 673 

CADI 337 341* 

CBOOT 10 146* 

CCPLEN 38* 40 55. 71 

CDISK 39* 54 231* 333 

CLRACT 266* 529 

CMP 483 519 577* 

CMP1 578* 583 

CONIN 14 203* 

CONOUT 15 204* 

CONST 13 202* 

CPB 474 523 592* 

CR 222* 657 677 

DBOOT 67 256* 

DBT2 260* 262 

DELLIN 226* 658 

DMABAS 72 134 138 192* 

DPBADR 315 489* 

DPHTAB 258 279 728* 

ERFLAG 418 454 555* 

ESC 223* 225 226 

FLUSH 52 1 562* 

HOME 20 346* 

HSTACT 267 5 13* 515 

HSTBUF 256 695* 






00 



IE HSTCMD 404 7 19* 

HSTDMA 257 539 724* 

HSTOSK 517 522 72 1# 

HSTSEC 723* 

HSTTRK 722* 

HSTUNT 720* 

HSTWRT 530 549 563* 566 

INITIO 31* 

INSLIN 225* 678 

LF 220* 677 

LIST 16 205* 

LISTST 28 206* 

MLS 82 111 172* 

MLS1 180 183* 

MLS2 176 185* 

MONITR 200* 202 203 204 205 206 207 208 

NSECTS 40* 69 

PMSG 61 146 160* 168 641 656 676 680 

PMSGI 628 634 638 676* 

PUNCH 17 208* 

RDWR 452* 

RDWR1 462 466* 

RDWRHS 393 -4 16* 

RDWRS 391* 459 465 

READ 25 1 19 430* 

READER 18 207* 

READHS 397* 527 

READOP 391 452 544* 

RESERVE 685* 694 698 702 703 704 705 706 707 708 712 713 

714 718 719 720 721 722 723 727 

REV 41* 152 

RPB 320 471* 

RSFLAG 504 525* 

RW0P1 507* 5 10 

RW0P2 516 522* 

RW0P3 520 53 1* 

RW0P4 546 550* 

RWOPER 497 504* 

SECCNT 70 123* 12$ 

SECMSK 326 457 505 533* 

SECTRN 29 378* 

SEKCMD 392 703* 

SEKDMA 366 54 1 708* 

SEKDSK 277 334 481 518 592 705* 

SEKHST 456 511 707* 

SEKSEC 359 455 506 531 709* 

SEKTRK 352 463 706* 

SEKUNT 704* 

SEL1 279* 29 1 



> 

"a 
n> 

D 
CL 

x' 

X 



SEL2 


283 


292* 




SEL3 


289 


308* 




SEL4 


307 


329* 




SELCMD 


293 ' 


699* 




SELDSK 


21 


276* 




SETDMA 


24 


366* 




SETSEC 


23 


359* 




SETTRK 


2 2 


352* 




SKIP 


243* 


398 


434 


SPT 


92 


131* 


178 


TRANSZ 


84 


186* 




TRKZFL 


324 


461* 




UNACNT 


431 


472 


476* 


UNADSK 


473 


482 


713* 


UNASEC 


485 


487 


492 


UNATRK 


493 


495 


714* 


UP 


221* 


659 




WBOOT 


1 1 


66* 




WBT 1 


101 


104 


106* 


WBT2 


1 10* 


132 




WBT3 


1 17 


127* 




WBT4 


136* 


137 




WBT5 


45* 


126 




WBTCOM 


56* 


58 




WBTERR 


48 


61* 


76 


WRALL 


235* 


432 




WRDIR 


236* 


553 




WRIT! 


469 


475* 




WRIT2 


49 1 


496* 




WRIT3 


484 


498* 




WRIT4 


478 


500* 




WRITE 


26 


445* 




WRITHS 


403* 


565 




WRTYPE 


467 


552* 




WRUAL 


237* . 


468 




XDR 


298 


417 


604* 


XDR1 


605* 


669 




XDR2 


612 


617* 




XDR3 


616 


620* 




XDR4 


627 


632* 




XDR5 


633 


638* 




XDR6 


63 1 


637 


64 1* 


XDR 7 


665 


673* 




XDRA 


604 


605 


608 


XDRB 


625 


644* 




XLATE 


79 


173* 




XQPVR 


230* 


606 





480 



715* 



142 



121 



499 



609* 



620 



X 



Notes 
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I 
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3 
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5 
6 
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8 
9 
10 
1 1 
12 
13 
14 
15 
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17 
IB 
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20 
21 
22 
23 
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26 
27 
20 
29 
30 
31 
32 
33 
34 
35 
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Title Banked Physical Driver 

Banked Physical Driver 

Copyright (C) 1982, Balcones Computer Corporation 

Transferred to Public Domain - (PD) 1983 

After executing this program by entering BANK x: (where x is any valid 
CP/M disk drive A-P) . The BANK program will load a physical disk 
driver into memory. This physical driver is executed when drive x: is 
accessed by CP/M. This particular disk driver will map normal CP/M 
files onto the address space of the alternate memory bank 
(bank 0) in the 820-11. 

This utility demonstrates the flexibility of the logical to 

physical disk mapping in the 820-11. The BANK program 

moves the physical disk driver up to high memory. 

It then updates the entry for drive x: in the logical to physical 

disk drive mapping table telling the system to use physical 

disk driver #3 when CP/M requests service from drive x;. 

The execution address of the BANK driver is then placed in 
entry #3 of the physical disk driver address table. 

If BANK is executed by entering: A>BANK P; 

Then doing a A>DIR P: would display the following directory: 

BOOT .ROM : OPTION .ROM : SCREEN .MEM : EXPAND .RAM 

Entering: A>STAT P:*.* will display the following: 

Recs Bytes Ext Ace 

64 12k I R/0 P:B00T.R0M 

256 32k 1 R/W P:EXPAND.RAM 

16 2k 1 R/W P.-OPTION.ROM 

24 4k 1 R/W P:SCREEN.MEM 

Bytes Remaining On P: Ok 

The files map to the following memory addresses in bank 0: 



BOOT. ROM 
EXPAND. RAM 
OPTION. ROM 
SCREEN. MEM 



0000h-2fffh 
4000h-bf f fh 
17f fh-lf f fh 
3000h-3bf fh 



The BANK program can also be a very useful tool in that after 
it has been executed a high level language program can access 
items in the alternate memory bank as disk files on drive x: 

Of particular interest is the file SCREEN. MEM, notice that it 
is 24 records long. Each record (128 bytes) corresponds to a 
line on the CRT (only the first 80 bytes of each record are in 
the display window). The first record of the file corresponds 
to the first line of the CRT only if the CRT has not been 
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> 
U 
T3 

a. 



57 
58 
59 
60 
61 



permitted to scroll since the last clear screen command was sent 
to i t . 

Subttl Constants & Program Mover 
page 



> 

(b 
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62 

63 

64 

65 

66 

67 

68 

69 

70 

71 

72 

73 

74 

75 

76 

77 

78 

79 

80 

81 

82 

83 

84 

85 

86 

87 

88 

B9 

90 

91 

92 

93 

94 

95 

96 

97 

98 

99 

100 

101 

102 

103 

104 

105 

106 

107 

108 

109 

1 10 

1 1 1 

1 12 

1 13 

1 14 

1 15 

1 16 



F000 
F033 
F036 

FF3C 
FF3E 

0005 
005C 

FA80 
0000 



0000' 



0100 



18 5A 



0102 


43 


6F 


70 


79 


0106 


7 2 


69 


67 


68 


010A 


74 


20 


28 


43 


G10E 


29 


20 


31 


39 


01 12 


30 


32 


20 


42 


01 16 


61 


6C 


63 


6F 


01 1A 


6E 


65 


73 


20 


01 IE 


43 


6F 


6D 


70 


0122 


75 


74 


65 


72 


0126 


20 


43 


6F 


72 


012A 


70 


6F 


72 


61 


012E 


74 


69 


6F 


6E 


0132 


20 


54 


72 


61 


0136 


6E 


73 


66 


65 


013A 


72 


72 


65 


64 


013E 


20 


74 


6F 


20 


0142 


50 


75 


62 


6C 


0146 


69 


63 


20 


44 


014A 


6F 


6D 


61 


69 


014E 


6E 


20 


2D 


20 


0152 


28 


50 


44 


29 


0156 


20 


31 


39 


38 


015A 


33 


1A 






015C 


CD 


03D8 




015F 


3 A 


005C 




0162 


B7 








0163 


20 


30 






0165 


F5 








0166 


CD 


03F8 




0169 


F1 








016A 


3D 








016B 


4F 









Moni t r 
Xcrtmv 
XgetsI 


equ 
equ 
equ 


OfOOOh 
moni tr+33h 
moni tr+36h 


Bavai 1 
Eavai 1 


equ 
equ 


0ff3ch 
0ff3eh 


bdos 
df cb 


equ 
equ 


5 
5'ch 


drvadr 

stack 


equ 
equ 


0fa80h 




.zBO 

Aseg 

Org 

jr 

db 



db 



Base address of resident monitor 

Crt <-> Ram Move LDIR Simulator 

Get driver select table address to hi 

;Pointer to beginning of available memory 
jPointer to end of available memory 



;address for Bank driver 



lOOh 
1 oadi t 

'Copyright (C) 1982 Balcones Computer Corporation' 



' Transferred to Public Domain - (PD) 1983', 26 



1 oadi t : 


cal 1 


req822 




Id 


a, (dfcb) 




or 


a 




jr 


z .bnkusg 




push 


af 




cal 1 


ckspac 




pop 


af 




dec 


a 




Id 


c , a 



;see if machine is 820-II 



;see if room for driver 



UJ 



;rr— Banked Physical Driver 

i Constants & Progi am Mover 



1 17 


1 6C 


2 1 


0259 


1 18 


016F 


11 


FA80 


1 19 


0172 


D5 




120 


0173 


C5 




121 


0174 


01 


017F 


122 


0177 


ED 


BO 


123 


0179 


26 


00 


124 


017B 


CD 


F036 


125 


OWE 


CI 




126 


017F 


E5 




127 


0180 


09 




128 


0181 


09 




129 


0182 


36 


03 


130 


0184 


23 




131 


0185 


36 


00 


13 2 


0187 


• El 




133 


0188 


1 1 


0026 


134 


018B 


19 




135 


018C 


D1 




136 


018D 


73 




137 


018E 


23 




138 


Q18F 


72 




1 39 


0190 


OE 


OD 


140 


0192 


C3 


0005 


141 








142 


0195 


1 1 


019D 


143 


0198 


OE 


09 


144 


019A 


C3 


0005 


145 








146 


019D 


55 


73 61 67 


147 


01A1 


65 


3A 20 42 


148 


01A5 


41 


4E 4B 20 


149 


01A9 


78 


3A 24 


150 








151 


01 AC 






152 


0259 






153 








154 








155 








156 
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Id 


hi ,dr i ver 




Id 


de , banked 




push 


de 




push 


be 




Id 


be , drv 1 en 




ldir 






Id 


h.O ; 




cal 1 


XGetsl ; 




pop 


be 




push 


hi 




add 


hl.be 




add 


hi ,bc 




Id 


(hi ),3' 




inc 


hi 




Id 


(hl),0 




pop 


hi 




Id 


de, 2*16+3*2 




add 


hi .de 




pop 


de 




Id 


(hl),e 




inc 


hi 




Id 


(hl),d 




Id 


c. 13 




JP 


bdos 


bnkusg : 


Id 


de.bnkmsg 




Id 


c.9 




JP 


bdos 


hnkmsg : 


db 


'Usage: BANK x:$' 



ds 



indicate register return 
;get select table address 



200h-l03h-($-loadit ) .-1 



driver: 



.phase Drvadr 

Subttl Bank Driver 
page 



> 

a> 



> 


Banked 


Phys i ca 1 


Or i ver 


T3 


Bank Di 


r i ver 






13 










0> 
CL 


157 
158 










159 


FA80 


7E 




X 


160 


FA8 1 


4F 






161 


FA82 


23 






162 


FA83 


3C 






163 


FA84 


28 


51 




164 


FA86 


23 






165 


FA87 


23 






166 


FAB8 


56 






167 


FA89 


23 






168 


FA8A 


23 






169 


FA8B 


7E 






170 


FA8C 


OF 






171 


FA8D 


5F 






172 


FA8E 


23 






173 


' FA8F 


23 






174 


FA90 


7E 






175 


FA91 


23 






176 


FA92 


66 






177 


FA93 


6F 






178 


FA94 


06 


00 




179 


FA96 


7C 






180 


FA97 


FE 


CO 




181 


FA99 


30 


01 




182 


FA9B 


05 






183 


FA9C 


79 






184 


FA9D 


B7 






185 


FA9E 


28 


02 




186 


FAAO 


06 


01 




187 


FAA2 


C5 






188 


FAA3 


B2 






189 


FAA4 


FA 


FAC8 




190 


FAA7 


FE 


30 




191 


FAA9 


79 






192 


FAAA 


01 


0080 




193 


FAAD 


38 


05 




194 


FAAF 


B7 






195 


FABO 


20 


05 




196 


FAB2 


OE 


50 




197 


FAB4 . 


B7 






198 


FAB5 


28 


01 




199 


FAB7 


EB 






200 


FAB8 


F1 






201 


FAB9 


EP 


73 FAC4 




202 


FABD 


31 


0000 




203 


FACO 


CD 


F033 




204 


FAC3 


3 1 


0000 




205 


FAC4 








206 


FAC6 


AF 






207 


FAC7 


C9 






208 


FAC8 


1 1 


FADB 




209 


FACB 


00 






210 


FACC 


20 


01 




211 


FACE 


EB 
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banked : 


Id 


a , ( h 1 ) 




Id 


c ,a 




inc 


hi 




inc 


a 




jr 


z , se 1 bnk 




inc 


hi 




inc 


hi 




Id 


d,(hl) 




inc 


hi 




inc 


hi 




Id 


a, (hi ) 




rrca 






Id 


e , a 




inc 


hi 




inc 


hi 




Id 


a. (hi ) 




inc 


hi 




Id 


h, (hi ) 




Id 


1 .a 




Id 


b,0 




Id 


a,h 




cp 


OcOh 




jr 


nc , bank 1 




dec 


b 


bank 1 : 


Id 


a , c 




or 


a 




jr 


z ,bank2 




Id 


b, 1 


bank2: 


push 


be 




or 


d 




JP 


m, bank6 




cp 


030h 




Id 


a , c 




Id 


be, 128 




jr 


c,bank3 




or 


a 




jr 


nz , bank 4 




Id 


c,80 


bank3: 


or 


a 




jr 


z , bank5 


bank4 : 


ex 


de.hl 


bank5 : 


pop 


af 




Id 


( stksav) , sp 




Id 


sp , stack 




cal I 


Xcrtmv 




Id 


sp 


stksav 


equ 


$-2 




xor 


a 




ret 




bank6: 


Id 


de ,Di rect 




dec 


c 




jr 


nz, bank 7 




ex 


de.hl 



;get driver op 



; i f se 1 ect op 



;set track 



;set sector 



;set transfer address 



;preset crtldir op 

;if transfer outside banked area 

;set ram->crt 

;set read/write op 

; i f write 
;set crt->ram 
;save direction op 
;check directory track 
;if directory operation 

;set read/write switch 

; i f not within screen memory 

; i f read 

; on) y wri te one 1 ine 

; test read/wri te 

; i f write 

;set read 

;get mover op to A 

;use high stack 

;move it to/from crt bank 



;always succeeds 

;set directory address 

;if directory write 



en 



> 

3 



Banked Physical Drivtir 
Bank Driver 
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212 
213 
2 14 
215 
216 
217 
2 IB 
219 
220 
221 
222 



FACF 


1 


OOBO 


FAD2 


ED 


BO 


FAD4 


F1 




FAD5 


AF 




FAD6 


C9 




FAD7 


2 1 


FB5B 


FADA 


C9 





bank7 : 


Id 
ldir 


be 


,aon 




pop 


af 






xor 


a 






ret 






se 1 bnk : 


Id 
ret 


hi 


,dph 



; read or re-write directory 



Subttl Directory Sector, Dpb & Dph 
page 



Banked Physical Pi iver 

Pi rectory Sectoi , Dpb & Pph 
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223 
224 
225 
226 
227 
228 
229 
230 
231 
232 
233 
234 
235 
236 
237 
238 
239 
240 
241 
242 
243 
244 
245 
246 
247 
248 
249 
250 
251 
252 
253 
254 
255 
256 
25 7 
258 
259 
260 
261 
262 
263 
264 
265 
266 
267 
268 
269 
270 
271 
272 
273 
274 
275 
276 
277 



FAOB 


UO 








FAPC 


42 


4F 


4F 


54 


FAEO 


20 


20 


20 


20 


FAE4 


P2 








FAE5 


4F 


40 






FAE7 


00 


00 


00 


40 


FAEB 


01 


02 


03 


04 


FAEF 


05 


06 


00 


00 


FAF3 


00 


00 


00 


00 


FAF7 


00 


00 


00 


00 


FAFB 


00 








FAFC 


4F 


50 


54 


49 


FBOO 


4F 


4E 


20 


20 


FB04 


52 


4F 


40 




FB07 


00 


00 


00 


10 


FBOB 


04 


00 


00 


00 


FBOF 


00 


00 


00 


00 


FB13 


00 


00 


00 


00 


FB17 


00 


00 


00 


00 


FB1B 


00 








FB1C 


53 


43 


52 


45 


FB20 


45 


4E 


20 


20 


FB24 


40 


45 


40 




FB27 


00 


00 


00 


18 


FB2B 


07 


08 


00 


00 


FB2F 


00 


00 


00 


00 


FB33 


00 


00 


00 


00 


FB37 


00 


00 


00 


00 


FB3B 


00 








FB3C 


45 


58 


50 


41 


FB40 


4E 


44 


20 


20 


FB44 


52 


41 


40 




FB47 


01 


00 


00 


80 


FB4B 


.09 


OA 


OB 


OC 


FB4F 


00 


OE 


OF 


10 


FB53 


1 1 


12 


13 


14 


FB57 


15 


16 


17 


18 


FB5B 


0000 OOOC 


I 


FB5F 


0000 OOOC 


) 


FB63 


FB7F FB6E 


I 


FB67 


0000 FB7E 


1 


FB6B 


0002 






FB6P 


04 


OF 


01 




FB70 


0018 0003 


1 


FB74 


0080 OOOC 


) 


FB78 


FFF8 






FB7A . 


00 









Pi rect : db 
dc 



db 
db 
db 
db 
db 
db 



dph: 



dpb: 



db 
db 



db 
db 
db 
db 
db 

db 
db 



db 
db 
db 
db 
db 

db 
db 



db 
db 
db 
db 
db 

dw 

dw 
dw 

dw 
db 
dw 



db 




'BOOT 



'OM' 

00,00,00.64 

01 ,02,03,04 

05,06,00,00 

00,00,00.00 

00,00,00,00 




'OPTION 



ROM' 



00,00.00, 16 
04,00,00,00 
00,00,00,00 
00,00,00,00 
00,00,00,00 




'SCREEN 



MEM' 



0.0,0.24 

07,08,00,00 

00,00,00,00 

00,00,00,00 

00,00,00,00 



'EXPANO RAM' 



01 ,00,00,80h 
09, 10, 11., 12 
13,14.15. 16 
17,18, 19,20 
21 ,22,23,24 

0,0,0,0 

di rbuf , dpb 
O.al loc 

2 

4, 15, 1 

24,3, 128,0,-6 



;Bank Memory locations 



OOOOh-lfffh 
2000h-2fffh 



;Bank Memory locations 



17ffh-lfffh 



; Bank 0, Memory locations 



30Q0h-3bf fh 



Bank 0, Memory locations 



4000h-5fffh 
6000h-7fffh 
8000h-9fffh 
aOOOh-bfffh 



;spt 

sblkshf, blkmsk, nul lmsk 

;dsw ,di rm, al 1 ocOl , chksi z , trk off 



128 byte sectors 



ri Banked Physical Driver 

Directory Sector, Dpb 8. Dph 
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278 


FB7B 


279 


F87F 


2B0 




281 




282 


017F 


283 




284 




285 





alloc: ds 
di rbut : ds 



4 
128 



; a I 1 ocat ion vector 
; directory buffer 



.dephase 
drvlen equ $-driver 

Subttl System Identification 
page 



> 

ro 
x' 



> 

3 
X* 



03D0 


3A 


FOOO 


03DB 


FE 


C3 


03 DC) 


20 


OD 


03DF 


2A 


F001 


03E2 


7E 




03E3 


FE 


F3 


03E5 


20 


05 


03E7 


23 




03E8 


7E 




03E9 


FE 


DB 


03EB 


CO 




03EC 


El 




03ED 


1 1 


0434 


03FG 


OE 


09 


03F2 


CD 


0005 


03F5 


C3 


0000 



Banked Physical Driver 
System Identification 



286 
287 
288 
289 
290 
291 
29 2 
293 
294 
295 
296 
297 
298 
299 
300 
301 
302 
303 
304 
305 
306 
307 
308 
309 
310 
311 
312 
313 
314 
315 
316 
317 
318 
319 
320 
321 
322 
323 
324 
325 
326 
327 
3 28 
329 
330 
331 
332 
333 
334 
335 
336 
337 
338 
339 
340 
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03F8 


ED 


5B 


FF3C 


03FC 


21 


FA80 




03FF 


B7 








0400 


ED 


52 






0402 


38 


1 1 






0404 


2 A 


FF3E 




0407 


1 1 


FBFF 




040A 


ED 


52 






040C 


38 


07 






040E 


21 


FA80 




04 1 1 


22 


FF3E 




0414 


C9 








0415 


1 1 


041A 




0418 


18 


D6 






041A 


46 


72 


65 


65 


04 IE 


20 


6D 


65 


6D 


0422 


6F 


72 


79 


20 


0426 


73 


70 


61 


63 


042A 


65 


20 


69 


6E 


042E 


20 


75 


73 


65 


0432 


2E 


24 






0434 


54 


68 


69 


73 


0438 


20 


70 


72 


6F 


043C 


67 


72 


61 


6D 


0440 


20 


72 


65 


71 



• • 


Veri ry 
a Xerox 


I he machine th 
820-11 


ReqB22: 


Id 


a , (moni tr) 




cp 


0c3h 




jr 


nz ,not i i 




Id 


hi , (monitr+1 ) 




Id 


a.(hl) 




cp 


0f3h 




jr 


nz ,not i i 




inc 


hi 




Id 


a. (hi) 




cp 


Odbh 




ret 


z 


Not i i : 


pop 


hi 




Id 


de , msg 


pins 9 : 


Id 


c.9 




cal 1 


bdos 




JP 






Ckspac : 



Msg ; 



;make certain system is an B2Q-II 
jshould be a jump instruction if 820 
;if not give error message 
-.follow reload monitor jump 



;if interrupts not disabled 



;pitch return address 



The pointer at Bavai 1 points to the start of free memory, Eavai 1 
points to the end of free memory. This test verifies that there 
is enough space for this program to fit in this un-al located memory 
space. If so the Eavai 1 pointer is updated to the start of the driver 
If not an error message is sent to the console. 



Id 

Id 

or 

sbc 

jr 

Id 

Id 

sbc 

jr 

Id 

Id 

ret 

Id 

jr 



Nspace: db 



de, (bavai 1) ;get pointer to start of free address space 

hl.drvadr -.start of driver 

a 

hl.de 

c.nroom ;if drvadr < bavai 1 then no space 

hi, (eavai 1) ;get pointer to end of available space 

de , drvadr+drv 1 en 

hi .de 

c.nroom ;if driver end > end of eavai 1 then no space 

hl.drvadr -.else. update end pointer 

(eavai 1 ) , hi 

de , nspace 
pmsg 

'Free memory space in use.$' 



db 



'This program requires a Xerox 820-11 Information Processor. $' 



i£> 



Banked Physical Di iver 
System Identification 
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34 1 


0444 


75 


69 


72 


65 


342 


0448 


7 3 


20 


61 


20 


343 


044C 


58 


65 


72 


6F 


344 


0450 


78 


20 


38 


32 


345 


0454 


30 


2D 


49 


49 


346 


0458 


20 


49 


6E 


66 


347 


045C 


6F 


72 


6D 


61 


348 


0460 


74 


69 


6F 


6E 


349 


0464 


20 


50 


72 


6F 


350 


0468 


63 


65 


73 


73 


35 1 


046C 


6F 


72 


2E 


24 


352 












353 












354 













Subtt 1 
end 



Symbol Table 



> 
x' 



> 


Banked 


Phys i ca 


"O 


Symbu 1 


Table 


TJ 








Macros ; 










Symbo 1 s : 


X 


FB7B 


ALLOC 




FAB4 


BANK3 




FACB 


BANK6 




FF3C 


BAVAIL 




0195 


BNKUSG 




FB7F 


DIRBUF 




FB5B 


DPH 




017F 


DRVLEN 




F000 


MONITR 




0415 


NROOM 




03D8 


REQB22 




FAC4 


STKSAV 
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FA9C 


BANK1 


FAB7 


BANK4 


FACF 


BANK7 


0005 


BDOS 


03F8 


CKSPAC 


FADB 


DIRECT 


0259 


DRIVER 


FF3E 


EAVAIL 


0434 


MSG 


041A 


NSPACE 


FAD7 


SELBNK 


F033 


XCRTMV 



FAA2 


BANK2 


FABB 


BANK5 


FABO 


BANKED 


019D 


BNKMSG 


005C 


DFCB 


FB6B 


DPB 


FABO 


DRVADR 


015C 


LOADIT 


03EC 


NOTII 


03F0 


PMSG 


0000 


STACK 


F036 


XGETSL 



No Fatal error(s) 



NJ 



ALLOC 


269 


278* 




BANK1 


181 


183* 




BANK2 


105 


187* 




BANK3 


193 


197* 




BANK4 


195 


199* 




BANK5 


19B 


200* 




BANK6 


1B9 


208* 




BANK7 


210 


212* 




BANKED 


1 IB 


159* 




BAVAIL 


68# 


314 




BDOS 


l\tf 


140 


144 


BNKMSG 


142 


146* 




BNKUSG 


1 1 1 


142* 




CKSPAC 


1 13 


314* 




OFCB 


12ft 


109 




D1RBUF 


26B 


279* 




DIRECT 


20B 


225* 




DPB 


26B 


27 1* 




DPH 


21B 


266* 




DRIVER 


1 17 


152* 


282 


DRVADR 


74* 


153 


315 


DRVLEN 


121 


282* 


320 


EAVAIL 


69# 


319 


324 


LOADIT 


B1 


108* 


151 


MONITR 


64# 


65 


66 


MSG 


303 


337* 




NOT I I 


293 


297 


302* 


NROOM 


31B 


322 


326* 


NSPACE 


326 


329* 




PMSG 


304# 


327 




REQ822 


10B 


29 1* 




SELBNK 


163 


218* 




STACK 


75* 


202 




STKSAV 


201 


20!d* 




XCRTMV 


65* 


203* 




XGETSL 


66* 


124 





305 



320 323 



291 294 



> 

"O 
T3 

a> 

X* 



Position encoded Keyboard handler 



1 

2 

3 

4 

5 

6 

7 

8 

9 
10 
1 1 
12 
13 
14 ' 
15 
16 
17 
18 
19 
20 
21 
22 
23 
24 
25 
26 
27 

28 000D 
29 
30 
31 
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Title Position encoded keyboard handler 

Position encoded keyboard handler for the 82Q-II & 16/8 
professional computer. 

Copyright 1983 (C) XEROX Corporation 



This is the stand alone rom addition to the Xerox 
820-11 monitor. It is called once during monitor restart 
and at that time patches the monitor in ram to 
call the modified k/b , crt , Screenprint and printer 
routines. It then moves in its own SIGNON overlay 
and jumps into i t . 

This SIGNON in addition to selecting the disk driver also 
moves into ram (in the spare driver area) translation 
tables and code for k/b and printer routines (crt is run 
out of rom) . 

There is also a RX BOOT overlay which is selected instead 
of the Xerox one. This loads the national translation 
tables from disk and then calls the Xerox BOOT. 



.280 
def 1 



013 



subttl Xerox ROM dependant equates 
page 



Position encoded Keyboard handler 
Xerox ROM dependant equates 
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32 






33 






34 






35 






36 






37 


1800 




38 


0800 




39 


F000 




40 


F1EC 




41 


FF10 




42 


FF18 




43 


FF1A 




44 


FC5D 




45 


0002 


1 


46 


0018 




47 


0019 




48 


000A 




49 


0010 




50 


0012 




51 


F006 




52 


F009 




53 


F003 




54 


F01B 




55 


F01E 




56 


F024 




57 


F03C 




58 


F03F 




59 


F066 




60 


F06C 




61 


F06C 




62 


F06F 




63 


F072 




64 


F075 




65 


F078 




66* 


0182 




67 


0196 




68 


01DD 




69 


1078 




70 


0060 




71 


1 ICO 




72 


F167 




73 


F18F 




74 


F22F 




75 


F232 




76 


F293 




77 


F339 




78 


FA62 




79 


FA95 




80 


FC3D 


> 


81 
82 
83 
84 


ED80 


85 


F0E3 


Q. 


86 


F091 



rx1984 


equ 


roms i z 


equ 


moni tr 


equ 


savstk 


equ 


ctcvec 


equ 


sysvec 


equ 


kbvec 


equ 


tea 


equ 


bof f 1 


equ 


bof f2 


equ 


siof f 


equ 


kbof f 


equ 


f crtof ; 


equ 


crtcal 1 


equ 


const 


equ 


conin 


equ 


warm 


equ 


se 1 ect 


equ 


home 


equ 


read 


equ 


conf lg 


equ 


s iordy 


equ 


idle 


equ 


mnt rex 


equ 


kybdlp 


equ 


key2 


equ 


key5 


equ 


pnext 


equ 


prbof f 


equ 


crtdl 


equ 


crtd2 


equ 


grpad 


equ 


xrs ign 


equ 


sigof f 


equ 


xrboot 


equ 


mkey2 


equ 


mkey5 


equ 


sprnt 1 


equ 


sprnt 2 


equ 


crtof f 


equ 


prvat t 


equ 


prompt 


equ 


mprmtO 


equ 


mpnex t 


equ 



The following equates are dependant on the revision of the Xerox ROM 
These are compatible with Ver. 4.02 

start of rx1984 

size of eprom 

start of monitor ad jump table 

stack save address 

counter timer interrupt vector 

vector page 

keyboard vector 

start of 4.02 transient command area 

A command vector in command table 

1 command vector in command table 

sioout vector in monitor table 

offset in k/b int service for patch 

fast crt out vector in monitor table 

offset in crt driver for patch 



1800h 




BOOh 




OfOOOh 




x ' f lee ' 




x 'ff 10' 




0ffl8h 




sysvec+2 




Of c5dh 




( 'A'-'®' 


1*2 


(*L'-'@- 


\*2 


19h 




Oah 




lOh 




12h 




moni t r + 6 




moni t r + 9 




moni tr+3 




moni t r+ Ibh 


moni tr+ leh 


moni t r+24h 


moni tr+x 


3c 


moni tr + x 


3f 


moni tr+x 


66 


moni tr+x 


6c 


moni tr+x 


6c 


moni tr+x 


6f 


moni tr+x 


72 


moni tr+x 


75 


moni tr+x 


78 


0182h 




0196h 




Iddh 




1078h 




60h 




1 IcOh 




x'f 167' 




x'f IBf ' 




0f22fh 




0f232h 




x'f293' 




0f339h 




0fa62h 




x 'fa95' 




x ' f c3d' 





monitor configure routine 

sio channel b output ready status 

idle while i/o pending 

monitor jump table expansion area 

low profile keyboard entry address 

keyboard xlat char entry address 

keyboard without xlat char entry address 

print message after call 

promt boot entry 



address of set graphics attribute 

adress of xr signon overlay 

offset of ver value in signon 

boot o/l address 

keyboard handler entry address 

return from keyboard and timer interrupt add 

patch address for screen print 

return address from RX screenprint code 

switch to ram side 

contains address of current set attribute 

4.02 PROMPT 

4.01 PRMTO 

4.01 PNEXT 



Data Addreses 



bobtbf equ 
mask equ 
confg equ 



OedBOh 
0f0e3h 
0f09lh 



> 

CD 

r> 
a. 



Posi t i 
Xer ox 



on encodtid Keyboard handler 
ROM dependant equates 



B7 


F20E 


ao 


F319 


89 


F360 


90 


F470 


91 


F70B 


92 


F800 


93 


FA1 1 


94 


FF3C 


95 


FF50 


96 


FF54 


97 


FF5C 


98 


FFAC 


99 


FFB2 


100 


FFB3 


101 


FFB4 


102 




103 




104 




105 


001D 


106 


00 1C 


107 


0005 


108 


0010 


109 


00 IE 


1 10 


0019 


11 1 




1 12 




1 13 




1 14 


0081 


1 15 


0001 


1 16 


0000 


1 17 


0001 


1 18 


0064 


1 19 


003C 


120 


0006 


121 


0008 


122 


0008 


123 


0001 


124 


007B 


125 


0061 


126 


0020 


127 


0000 


128 


OOFF 


129 




130 




131 




132 


0004 


133 


0006 


134 


0001 


135 


0300 


136 


* 


137 




138 




139 


001D 


140 


001E 


141 


0004 


142 


0005 



3.44 


09-Dec- 


-81 


spac t 


equ 


x'f 20e 


gold 


equ 


0f319h 


se 1 tab 


equ 


0f360h 


f i vdpb 


equ 


0f470h 


rigdpb 


equ 


Of 708h 


tabled 


equ 


•OfBOOh 


phy t rk 


equ 


Ofal In 


ava i 1 b 


equ 


x'ff3c 


intstk 


equ 


x'f f50 


steprt 


equ 


Of f54h 


1 inbuf 


equ 


Of f5ch 


cursor 


equ 


Of f ach 


1 eadin 


equ 


Of fb2h 


a 1 1 r i b 


equ 


Of fb3h 


chrsav 


equ 


Of fb4h 



Port addressess 



sysc t 1 


equ 


ldh 


syspio 


equ 


Ich 


siodpb 


equ 


05h 


wd1797 


equ 


lOh 


kbdat 


equ 


leh 


ctcl 


equ 


x' 19' 



Other Equates 



encntr 


equ 


x '81 ' 


stcntr 


equ 


x'01 ' 


revO 


equ 


x'00' 


rev 1 


equ 


x'01 ' 


rev50 


equ 


5*100-400 


cnf got f 


equ 


x '3C 


cnf by te 


equ 


x'06' 


kblp 


equ 


x'08' 


romof s 


equ 


x'08' 


1 pkof s 


equ 


x'01' 


upper 


equ 


'z' + l 


lower 


equ 


' a' 


upasci i 


equ 


'a'-'A' 


zero 


equ 





set f 1 g 


equ 
Equates 


x ' f t ' 


! 

c.f iye 


equ 


04 


c . sas i 


equ 


06 


o . term 


equ 


OOOIh 


sasidl 


equ 


300h 



Internal equates 



CO 



rtabl 


equ 


29 


rtab2 


equ 


30 


f tabl 


equ 


04 


f tab2 


equ 


05 



;space for rx code 

;bottom available ram memory 
;tempory stack address 



jaddress of attributes enabled flag 



jctcl port address 



enable etc command 
stop etc command 

4.00 Revision Level 

4.01 Revision Level 
5.00 Revision level 
monitor configuration offset 
configuration subroutine byte offset 
configuration bit id for LPKYBD 

PROMPT offset between 4.02 & 4.01 monitor 

additonal sector required for table storage 

upper limit for alpha test 

lower limit for alpha test 

set to upper case ASCII mask 

zero 

set f 1 ag 



rigid disk tables sector 1 

" » •• 2 

floppy " " " 1 

2 



*— Posit iun encoded Keyboard handler 
"^ Xerox ROM dependant equates 



143 


0006 


144 


0000 


145 


0001 


146 


0002 


147 


0003 


148 


0004 


149 


001A 


150 


00 IB 


151 


0004 


152 


000D 


153 


000A 


154 




155 




156 





3.44 


09-pec- 


-81 


ftab3 


equ 


06 


1 ang 


equ 


00 


kbrd 


equ 


01 


font 


equ 


02 


p r n t 


equ 


03 


kbrdtb 


equ 


04 


c 1 rs 


equ 


lah 


esc 


equ 


Ibh 


eot 


equ 


04h 


cr 


equ 


Odh 


If 


equ 


Oah 




subtt 1 


RX1 




page 





offset of language no. in index table 
offset of k/b flag in index table 
offset of font flag in index table 
offset of printer flag in index table 
offset of k/b tables in first sector 
clear screen 
escape key 
end of text 
carriage return 
1 ine feed 



RX'1984 Restart 



> 
Q. 



> 

n 

3 
ex- 



position encoded keyboard handler 
RX19B4 Restart 



157 
158 
159 
160 
161 
162 
163 
164 
165 
166 
167 
168 
169 
170 
171 
172 
173 
174 
'175 
176 
177 
178 
179 
180 
181 
182 
183 
184 
185 
186 
187 
188 
189 
190 
191 
192 
193 
194 
195 
196 
197 
198 
199 
200 
201 
202 
203 
204 
205 
206 
207 
208 
209 
210 
21 1 



0000' 



1800 


C5 




1801 


D5 




1802 


E5 




1803 


21 


0000 


1806 


CD 


F03C 


1809 


7C 




180A 


FE 


00 


180C 


CA 


187E 


180F 


FE 


64 


181 1 


D2 


187E 


1814 


21 


1B1A 


1817 


FE 


01 


1819 


28 


03 


18 IB 


2 1 


1B29 


181E 


1 1 


F06C 


1821 


01 


000F 


1824 


F5 




1825 


ED 


BO 


1827 


DD 


2A F03D 


182B 


DD 


7E 06 


182E 


F6 


08 


1830 


DD 


77 06 


1833 


Fl 





1834 


DD 


El 






1836 


DD 


E5 






1838 


DD 


36 


02 


3D 


183C 


DD 


36 


03 


06 


1840 


DD 


36 


18 


3D 


1844 


DD 


36 


19 


06 


1848 


FE 


01 






184A 


28 


10 






1B4C 


DD 


36 


02 


45 


1850 


DD 


36 


03 


06 


1854 


DD 


36 


18 


45 


1858 


DD 


36 


19 


06 



MACRO-80 3.44 



start : 



09-Dec-8l 



.phase rx1984 



RX1984 

Entry here from Xerox monitor bfore entering SIGNON. 



tbxf er : 



Input : ■ 



push 

push 

push 

Id 

cal 1 

Id 

cp 

JP 
cp 

JP 

Id 

cp 

jr 

Id 

Id 

Id 

push 

ldir 

Id 

Id 

or 

Id 

pop 



hi - cmdtab 
de - seltab 
be - cloc 



be 

de 

hi « 

hi ,0 

conf ig 

a.h 

revO 

z , no 1 oad 

rev50 

nc.no) oad 

hi ,rvl tbl 

revl 

z , tbxf er 

hi ,rv2tbl 

de ,mnt rex 

be , j tbl sz 

af 



;get monitor configuration 

;skip if below 4.01 

;skip if 5.00 or above 
;4.01 spring board table 

;skip if 4.01 

;4.02+ spring board table 



;save monitor level 

;append monitor table with Ipkybd jmp vectors 
i x , (moni tr+cnf gof f + 1 ) ;set address at monitor config: 
a , ( i x+cnf by te) 

kblp ; set low profile bit flag 

( i x+cnf by te) , a 
af ;recover monitor level 



Alter BOOT commnd vectors 



pop 


i x 


push 


i x 


Id 


( i x + bof 


Id 


( ix+bof 


Id 


( ix+bof 


Id 


( ix+bof 


cp 


rev 1 


jr 


z , soout 


Id 


( ix+bof 


Id 


(ix+bof 


Id 


( ix+bof 


Id 


(ix+bof 



; cmdtab address 



f 1 ) , 1 ow rxboot 
f 1 + 1 ) , high rxboot 
f 2) , 1 ow rxboot 
f2+l),high rxboot 
;moni tor 
; skip if 



; assume 4.01 monitor 



check 

4.01 monitor 

f1),low (rxboot+romof s) ;4.02+ monitor boot over addr 
f 1+1), high ( rxboot+romof s) 
f2),low ( rxboot+romof s) 
f2+1),high ( rxboot+romof s) 



Alter keyboard interrupt service 



en 



Pas i t i on encode 
RX1984 Restart 



d Kcynoard handler 



MACRO-80 3.44 



09-Dec-Q1 



2 12 

2 13 
214 
215 
216 
217 
218 
2 19 
220 
221 
222 
223 
224 
225 
2 26 
227 
2 28 
229 
230 
23 1 
232 
233 
234 
235 
236 



185C 


OD 


2A 


FF1A 


1860 


[ID 


36 


OA CD 


1864 


DD 


36 


OB 6C 


1868 


DD 


36 


OC FO 



Soout: Id ix.(kbvec) ;k/b int vector 
Id ( ix+kboff ) ,0cdh ;CALL operation 
Id ( ix+kbof f+1 ) , low kybdlp 
Id ( ix+kboff+2) .high kybdlp 

;; Move in RX SIGNON to o/ 1 area and execute it 



186C 


El 




1B6D 


1 




186E 


CI 




186F 


CI 




1870 


21 


0552 


1873 


1 1 


FC5D 


1876 


01 


OOEB 


1879 


ED 


BO 


1B7B 


C3 


FC5D 


187E 


El 




187F 


Dl 




1880 


CI 




1881 


3E 


FF 


1883 


A7 




1884 


C9 







pop 


hi 








pop 


de 








pop 


be 








pop 


be 




; throw away return address 




Id 


hi .rxsign 




; rom address 




Id 


d e , t c a 




;o/l area 




Id 


be , rxsigl 




; 1 ength 




ldir 










JP 


tea 




;G0 SIGN ON 


no 1 oad : 


pop 
pop 
pop 


hi 
de 
be 








Id 


a , x ' f f ' 




;wrong monitor 




and 


a 




;load signon from monitor 




ret 










subtt 1 


ROM resident 


CRT 


Driver 




page 









> 

m 
a. 



1885 


2A 


FFAC 


1888 


3A 


FFB4 


188B 


77 




188C 


3 2 


F319 


188F 


3A 


FFB2 


1892 


B7 




1893 


C2 


0196 


1896 


3 A 


F0E3 


1899 


Al 




189A 


4F 




189B 


FE 


20 


189D 


DA 


0196 


18A0 


CD 


18A6 


18A3 


. C3 


0182 



Position encoded Keyboard handler 
ROM resident CRT Di iver 



237 
238 
239 
240 
241 
242 
243 
244 
245 
246 
247 
248 
249 
250 
251 
252 
253 
254 
255 
256 
257 
258 
259 
260 
261 
262 
263 
264 
265 
266 
267 
268 
269 
270 
271 
272 
273 
274 
275 
276 
277 
278 
279 
280 
281 
282 
283 
284 
285 
286 
287 
288 
289 
290 
291 



MACRO-80 3.44 



09-Dec-ai 



18A6 


E5 




18A7 


79 




18A8 


E6 


80 


18AA 


F5 




1BAB 


2 1 


FFB3 


18AE 


Bb 




18AF 


28 


OA 


18B1 


1 1 


01DD 


18B4 


2A 


F339 


18B7 


ED 


52 


18B9 


28 


OF 


18BB 


79 




18BC 


CB 


BF 


1BBE 


21 


F960 


18C1 


1 


OOOD 


18C4 


ED 


Bl 


18C6 


4F 




18C7 


CC 


18CF 


18CA 


F 1 




18CB 


Bl 




18CC 


4F 




iacD 


El 




18CE 


C9 





J J 


Crtdvr 


- Crt Driver 


Rxcrt; 


Id 


hi , (cursor ) 




Id 


a , ( chrsav) 




Id 


(hi) ,a 




Id 


(go Id) ,a 




Id 


a , ( 1 eadin) 




or 


a 




jp 


nz , cr td2 




Id 


a , ( ma s k ) 




and 


c 




Id 


c ,a 




cp 


' ' 




JP 


c ,crtd2 




cal 1 


f onchk 




JP 


crtdl 



;set cursor address 

{retrieve character under cursor 

; replace character under cursor 

;bury balcones gold 

;set leadin state 

;if processing escape sequence 
;get keyboard mask 



; i f contro 1 code 

;do font translation 

;go to XR code 



Subroutine fonchk does the font .translation for national 

character sets. 

entry: C contains the character 

exit: C contains the translation 



;save cursor posn. 
;get char in a 
jpreserve attribute bit 



Fonchk : 


push 


hi 




Id 


a , c 




and' 


10000000b 




push 


af 




Id 


h'l .attrib 




or 


(hi) 




jr 


z . fonl 




Id 


de , grpad 




Id 


hi , (prvatt ) 




sbc 


hi ,de 




jr 


z , f on2 


fonl : 


Id 


a , c 




res 


7, a 




Id 


hi ,f ontbl 




Id 


be , f ont sz 




cpi r 






Id 


c , a 




cal 1 


z , f nt ran 


fon2: 


pop 


af 




or 


c 




Id 


c , a 




pop 


hi 




ret 





;point to attribute enabled flag 

;test if set 

;no attribute bit - go do translation 

;check if graphics mode 

-.current attribute mode 

grahics mode - no translate 

here to do translate 

clear attribute bit 

address of exceptions table 

size of exceptions table 

search for char, in exceptions 

restore char to c 

if found do translation 

retrieve attribute bit 

or it in 

-.retrieve cursor 



s/r fntran translates font characters 

entry: (HL) - address+1 of char to be translated in fontbl 

exit; (c) - translated character 



18CF 
18D0 
18D3 



2B 

1 OOOD 

09 



Fntran: dec 
Id 

add 



hi ; 
be , f ontsz 
hi ,bc 



;back to byte to be translated 

;size of table 

; add to address of char, to be translated 



Position encoded Keyboard handier 
ROM resident CRT Driver 



MACRO-80 3.44 



09-Dec-81 



292 


18D4 ' 


4E 




293 


18D5 


C9 




294 








295 








296 








297 








298 








300 








301 


18D6 


E5 




302 


1807 


C5 




303 • 


18D8 


7E 




304 


18D9 


CB 


BF 


305 








306 


18DB 


21 


F96D 


307 


18DE 


1 


000D 


300 


1QE1 


ED 


B1 


309 


10E3 


20 


07 


310 








31 1 


1QE5 


01 


OOOD 


312 


10E0 


37 




313 


10E9 


ED 


42 


3 14 


18EB 


7E 




315 


18EC 






3 16 


18EC 


FE 


20 


317 


1BEE 


30 


02 


310 


18F0 


3E 


20 


3 19 


18F2 


CD 


1966 


320 


10F5 


20 


OD 


321 








322 


1BF7 


CB 


7F 


323 


18F9 


28 


09 


324 


18FB 


4F 




325 


18FC 


3E 


IB 


326 


18FE 


CD 


1959 


327 


1901 


79 




328 


1902 


CB 


BF 


329 


1904 


CD 


1959 


330 


1907 


CI 




331 


1908 


El 




332 


1909 


C3 


F232 


333 








334 








335 








336 


190C 


C5 




337 


190D 


E5 




338. 


190E 


CD 


1914 


339 


191 1 


El 




340 


1912 


CI 




341 


19 13 


C9 




342 








343 








344 








345 








346 


1914 


4F 




347 


1915 


3A 


F9A6 



Id 
ret 



c,(hl) 



;get translated value 



scrprt ; 



scrOl ; 



scr02: 



scr03: 



This routine is called from the Xerox screenprint handler. It 
picks up the character to be printed from the crt ram, does a 
reverse font trans 1 ate , repl aces any control codes with a space, 
does a printer translate and outputs the character to the printer, 
entry:- HL - address of byte to be printed 



;byte for printing 

; ignore attribute bit 

;do reverse font translate 

;point to translates 

; search for char. 

; not in table 

;in table convert to media code 

;offset back to media code 

; points to media code 

here with media code 

is it a control code 

no 

yes. substitute a space 

do printer translation 

no translation done, go output char. 

translation done. check escape bit 

escape bit 

not set go output char 

set . save char . 

output an escape 

output routine 

restore char. 

clear escape bit 

print char 



ireturn to Xerox code 
Exception print driver - ROM entry point 



push 


hi 


push 


be 


Id 


a, (hi) 


res 


7, a 


Id 


hi , f ontbl+f ontsz 


Id 


be , f ontsz 


cpi r 




jr 


nz , scrO 1 


Id 


be , f ontsz 


scf 




sbc 


hi ,bc 


Id 


a. (hi) 


cp 


20h 


jr 


nc , scr02 


Id 


a,20h 


cal 1 


potran 


jr 


nz , scr03 


bit 


7, a 


jr 


z,scr03 


Id 


c , a 


Id 


a , esc 


cal 1 


posout 


Id 


a , c 


res 


7. a 


cal 1 


posout 


pop 


be 


pop 


hi 


JP 


sprnt 2 



Rmposend rpush 
push 
cal 1 
pop 
pop 
ret 

Posend 



Posend ; 



Id 
Id 



be 

hi 

posend 

hi 

be 



- deals with character translation and escape 
sequences for the diablo 630 

input a contains char for output to channel 

c , a 

a.(escsq) ;in an escape sequence? 



> 

T3 

a. 
x' 



Position encoded Keyboard handler 
ROM resident CRT Driver 



IX> 



348 


1918 


B7 




349 


1919 


20 


22 


350 


191B 


79 




35 1 


19 1C 


FE 


IB 


352 


191E 


20 


07 


353 


19 20 


CD 


1959 


354 


1923 


32 


F9A6 


355 


1926 


C9 




356 


1927 






357 


1927 


CD 


1966 


358 


192A 


20 


OD 


359 


192C 


CB 


7F 


360 


192E 


28 


09 


361 


1930 


4F 




362 


1931 


3E 


IB 


363 


1933 


CD 


1959 


364 


1936 


79 




365 


1937 


CB 


BF 


366 


1939 






367 


1939 






368 


1939 


CD 


1959 


369 


193C 


C9 




370 


193P 






371 


193D 


FE 


FF 


372 


193F 


20 


06 


373 


1941 


79 




374 


1942 


CD 


1959 


375 


1945 


18 


OD 


376 


1947 


79 




377 


1948 


CD 


1959 


378 


194B 


CD 


1986 


379 


194E 


20 


04 


380 


1950 


3E 


FF 


38 1 


1952 


18 


01 


382 


1954 


AF 




383 


1955 


32 


F9A6 


384 


1958 


C9 




385 


1959 


47 




386 


195A 


CD 


F03F 


387 


195D 


CC 


F066 


38B 


1960 


28 


F8 


389 


1962 


78 




390 


1963 


03 


05 


391 


1965 


C9 




392 








393 








394 








395 








396 








397 








398 


• 






399 








400 


1966 


2 1 


F97A 


401 


1969 


1 


0016 


402 


196C 


ED 


B1 


403 


196E 


CO 





\ 3.44 


09-Dec-8l 




or 


a 




jr 


nz ,pos04 




Id 


a ,c 




cp 


esc 




jr 


nz .posQl 




cal 1 


posout 




Id 


(escsq) , a 




ret 




posOl ; 








cal 1 


potran 




jr 


nz ,pos03 




bit 


7, a 




jr 


z.pos02 




Id 


c , a 




Id 


a , esc 




cal 1 


posout 




Id 


a , c 




res 


7. a 


pos02: 






pos03: 








cal 1 


posout 




ret 




pos04 : 








cp 


Of fh 




jr . 


nz ,pos05 




Id 


a , c 




cal 1 


posout 




jr 


pos06 


pos05 : 


Id 


a,c 




cal 1 


posout 




cal I 


poesc 




jr 


nz , pos06 




Id 


a.Offh 




jr 


pos07 


pos06; 


xor 


a 


pos07 : 


Id 
ret 


(escsq) , a 


posout : 


Id 


b,a 


SlOxl ; 


cal 1 


si ordy 




ca.l 1 


z , idle 




jr 


z , s iox 1 




Id' 


a,b 




out 


(s i odpb) , 




ret 





; yes 

jescape char? 

;no 

joutput char 

;set escape sequence flag 

;not escape char 

;do translation if neccessary 

; wasn't neccessary 

-.escape marker set? 

;no 



; output escape char 

;clear escape marker 
;escape marker not set 
;no translation 
joutput char 

jescape sequence 
;3rd byte? 
;no 2nd 

joutput char 

; 2nd byte of escape sequence 

joutput byte 

jsearch escape table for char 

jnot present 2 byte sequence 

jset sequence for 3rd byte 

jend of 2 byte sequence 
jtoggle escape sequence flag 



Potran - does printer translation if neccessary and returns 
a flag to indicate if translation has been done, 
input- a char for translaation 

output- a (translated) char 

i z set if char is translated (otherwise reset) 



Potran : 



Id 
Id 

cpi r 
ret 



hi .prntbl jprint exceptions table' 
bc.prntsz jsize of table 

nz ;no match - don't translate 



Position encoded Keyboard handler 
KOM resident CRV Driver 



MACRO-BO 3.44 



404 


196F 


2B 




405 


1970 


1 


0016 


406 


1973 


09 




407 


1974 


7E 




400 


1975 


B7 




409 


1976 


20 


OB 


410 








41 1 


1970 


23 




412 


1979 


7E 




413 


197A 


CD 


1959 


414 


1970 


3E 


00 


415 


197F 


CD 


1959 


416 


1902 


23 




417 


1903. 


AF 




41a 


1904 


7E 




419 


1905 


C9 




4 20 








42 1 








422 








4 23 








4 24 








425 


1906 


2 1 


190F 


4 26 


1909 


01 


0007 


427 


190C 


ED 


B1 


4 20 


190E 


C9 




4 29 








430 


190F 


09 


OB OC 


431 


1993 


IF 


16 1 1 


432 


0007 






433 








434 








435 








436 








437 








430 








439 








440 








441 








44 2 








44 3 








444 








445 








446 








447 








440 








449 








450 








451 








452 








453 








454 








455 








456 








457 


1996 


2F 




450 


1997 


D5 




459 


1990 


16 


00 



ptrOI ; 



09-Dec- 


-01 


dec 


hi 


Id 


be .prntsz 


add 


hi ,bc 


Id 


a, (hi) 


or 


a 


jr 


nz ,pt rOI 


inc 


hi 


Id 


a , ( h 1 ) 


cal 1 


posout 


Id 


a.Oflh 


cal 1 


posout 


inc 


hi 


xor 


a 


Id 


a, (hi ) 


ret 





; trans late 

joffset to translation 

{translation byte 

;if zero, requires overstriking sequence 

;non-zero - go output char 

;zero - use next 2 bytes in table as sequence 

; first byte 

; backspace 

; second byte 

;set z for return flag 

,-get translation 



Poesc - searches the escape table for a match with the char 
passed in a. if found returns with z set otherwise 
z i s c I ear 



Poesc ; 



IE 



Id 
Id 

cpi r 
ret 

pesctb: defb 

esctsz equ 



hi , pesctb 
be , esctsz 



;table of escape sequences 
; si ze of tabl e 



09h.0bh.0ch. 1 eh . 1 f h . 1 6h . 1 1h 

$-pesctb 



-.630 daisy printer 



Function:- to deal with characters form a position 

encoded keyboard, 
input:- A character read from PI0 
CMD/STATUS byte 

bit 7 -CMD/STATUS byte if set 
bit 6 -upstroke flag v 
bit 5 -y axis negative (mouse) 
bit 4 -x axis negative (mouse) 
bit 3 -mouse active 
bit 2 -ctrl key station active 
bit 1 -shift key station active 
bit -lock key station active 
First data byte 

bit 7 -Always reset 

bits(B-O) -key station or x mouse displacement 

Second mouse data byte 
bit 7 -Always reset 
bits(6-0) -y mouse displacement 

1) Carry set -- command byte or sequence error 

2) Carry clear -- translated character returned in A 



Output *. 



Pekhdl: cpl 
push 
Id 



de 

d , zero 



; complement keyboard byte 
;save registers 
;get f 1 ags 



> 

ID 
D 



Posi t 

ROM r 



ion encodefl 
esident CRT 



Keyboard handler 

Driver 



MACRO-BO 3.44 



09-Dec-Bl 



460 


199A 


CB 


7F 


461 


199C 


28 


17 


462 


199E 


18 


01 


463 


19A0 






464 


19A0 


7A 




465 


19A1 


32 


F9A7 


466 


19A4 


CB 


5F 


467 


19A6 


28 


05 ' 


468 


19A8 


21 


F95D 


469 


19AB 


CB 


BE 


470 


19AD 


CD 


1A66 


471 


19B0 


37 




472 


19B1 


01 




473 


19B2 


C3 


F9B7 


474 


19B5 


5F 




475 


19B6 


21 


F9A7 


476 


19B9 


CB 


7E 


477 


19BB 


28 


FO 


470 


19BD 


CB 


5E 


479 


19BF 


C2 


1A7D 


480 


19C2 


CB 


76 


481 


19C4 


20 


20 


482 


19C6 


CD 


19DB 


483 


19C9 


28 


D5 


484 


19CB 


CD 


19FF 


485 


19CE 


CD 


1A23 


486 


19D1 


CD 


1A3D 


4B7 


19D4 


21 


F9A7 


488 


19D7 


7 2 




489 


19D8 


A7 




490 


19D9 


18 


D6 


49 1 








492 








493 








494 








495 








496 








497 








498 


19DB 


E5 




499 


19DC 


21 


F953 


500 


19DF 


01 


0006 


50 1 


19E2 


ED 


Bl 


502 


19E4 


El 




503 


19E5 


C9 




504 








505 








506 . 

507 V 














508 








509 








510 








511 








512 


19E6 


2 1 


F95D 


513 


19E9 


CB 


5E 


514 


19EB 


28 


B3 


515 


19ED 


21 


F959 



nocha 
pekno 
cmdb : 



peknoc 
peknoc 
pekex : 

kypos : 



charout 



Ctrtst : 



bit 
jr 
jr 
equ 
; Id 
Id 
bit 
jr 
Id 
res 
cal 1 

;SCf 
pop 

JP 

Id 

Id 

bit 

jr 

bit 

JP 
bit 
jr 

cal 1 
jr 

cal 1 
cal I 
cal 1 
; Id 
Id 
and 
jr 



cmd , a 

z , kypos 

cmdb 

$ 

a.d 

(cmdstat ) ,i 

mouse , a 

z .peknoc 

h 1 , ms t b 1 

xy, (hi) 

stpctcl 

de 

1 pkex t 

e , a 

hi , cmdstat 

cmd, (hi ) 

2 , peknoc 

mouse , (hi ) 

nz ,mi ce 

ustrk, (hi ) 

nz , upstrk 

ctntst 

z , peknoc'2 

tblsel 

al phts t 

rptst 

hi , cmdstat 

( h 1 ) , d 

a 

pekex 



; command byte? 

;skip to position byte handler 

;skip to command byte handler 

clear command byte (non-valid position byte) 

save command-status byte 

mouse cmd? 

skip if not mouse # 



reset repeat flag 

this no the position byte 

recover registers 

jmp instead of ret - small interrupt stack 

save position code 

fetch command byte x 

out of sync check 

quit if no command byte 

test for mouse movement 

skip if mouse moved 

test key posistion- 

jump if special upstroke 

test for control codes 

quit if non printable control character 

select translation table 

test for alpha lock char 

test for repeat keys 

fetch command byte 

clear command byte (valid position byte) 

clear carry 



Character is tested for the lock, shift, and Ctrl key station. 

input a - key station code 

output z - set if lock, shift, or Ctrl key station 



push 
Id 
Id 
cpi r 

pop 
ret 



hi 
hi 



Ctrl tb 



be , cntc t r 



hi 



;save registers 

;non printable char table 

;byte count of table 

; search tabl e 



Upstrk: Id. 
bit 

jr ' 
Id 



The up-stroke is tested for special up-stroke key-stations. 

input a - Key station code 

strkup - user enable flag 

output a - translated up-stroke key-station code 

;user enable up-stroke flag 



hi .mstbl 
strkup , (hi ) 
z , nochar 
hi , ups 



;quit if user inhibited 
{exception key-station table 



> 

T3 



19F0 


01 


0002 


19F3 


ED 


Bl 


19F5 


20 


A9 


19F7 


2B 




19F8 


01 


0002 


19FB 


09 




19FC 


7E 




V9FD 


18 


D5 



« — Position encoded Keyboard handler 
""*» ROM resident CRT Driver 

516 
517 
518 
519 
520 
521 
522 
523 
524 
525 
526 
527 
528 
529 
530 

53 1 
532 
533 
534 
535 
536 
537 
538 
539 
540 
541 
542 

54 3 
544 
545 
546 
547 
548 
549 
550 
551 
552 
553 
554 
555 
556 
557 
558 
559 
560 
561 
562 
563 
564 
565 
566 
567 
568 
569 
570 
571 



MACRO-80 3.44 09-Dec~8l 



19FF 


7E 




1A00 


E5 




1A01 


2 1 


F867 


1A04 


CB 


4F 


1A06 


20 


17 


1A08 


21 


F8CE 


1A0B 


CB 


57 


1A0D 


20 


10 


1A0F 


2 1 


F800 


1A12 


CB 


47 


1A14 


2 8 


09 


1A16' 


3A 


F93B 


1A19 


A7 




1A1A 


28 


03 


1A1C 


21 


F867 


1A1F 






1A1F 


19 




1A20 


7E 




1A21 


El 




1A22 


C9 





1A23 


CB 


46 


1A25 


ca 




1A26 


FE 


7B 


1A28 


30 


06 


1A2A 


FE 


61 


1A2C 


38 


02 


1A2E 


D6 


20 



Id be , upssz 

cpi r 

jr nz.nochar 

dec hi 

id be , upssz 

add hi f oc 

Id a, (hi) 

jr charout 



;byte count of table 
-.search table 
;quit if no match 
;get exception 



• ,-return translated character 

T.he appropriate keyboard translation table is selected 

input hi - command-status address 
de - key station code 

translated key station code 



move cmd-status byte 

save command-status ptr 

preset to shift table 

shift bit set? 

skip if set 

preset to control table 

control bit set? 

skip if set 

preset to un shifted table 

lock key set 

skip if reset 

1 ock key set 

test for shift lock (not alpha lock) 

skip if reset 

preset to shift table 

here with translation table address in hi 

index into table 

get translated char 

recover command-status ptr 



If the lock key is depressed, the translated character is 
tested to see if it is an alphabet. If it is lower case, 
then it is forced upper case. 

input hi - command-s tatus address 
a - translated character 

output a - translated character (upper chase if alpha-Hock) 

;test alpha lock flag 

;quit if not alpha lock 

;test for upper alpha range 

;skip if non alpha range 

-.test for lower case alpha range 

;skip if not lower alpha case 

;set upper case ASCII alpha character 

Three additional caracters are allowed for the alpha lock key 





output 


a -. trans 1 


Tblsel 


: Id 


a, (hi) 




push 


hi 




Id 


hi , shtab 




bit 


s h i f t , a 




jr 


nz , cmdbl 




Id 


hi .cdtab 




bit 


Ctrl .a 




jr 


nz , cmdbl 




Id 


hi , tabl 




bit 


I ock , a 




jr 


z , cmdbl 




Id 


a, (shf t lck) 




and 


a 




jr 


z , cmdbl 




Id 


hi , shtab 


cmdb 1 : 








add 


hi ,de 




Id 


a, (hi ) 




pop 


hi 




ret 





Alphtst :bi t 


lock, (hi ) 


ret 


z 


cp 


upper 


jr 


nc , a 1 phexc 


cp 


1 ower 


J r 


c , a 1 phexc 


sub 


upasc i i 



> 

x' 
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572 








573 








574 








575 








576 - 








577 


I A 30 


2 1 


F935 


570 


1A33 


01 


0003 


579 


1A36 


ED 


B1 


580 


1A38 


CO 




58 1 


1A39 


23 




582 


1A3A 


23 




583 


1A3B 


7E 




584 


1A3C 


C9 




585 








586 








587 








588 








589 








590 








59 1 








592 


1A3D 


21 


F940 


593 


1A40 


01 


0013 


594 


1A43 


ED 


B1 


595 


1A45 


CO 




596 


1A46 


2 A 


F93C 


597 


1A49 


22 


F9A8 


598 


1A4C 


21 


F9AA 


599 


1A4F 


77 




600 


1A50 


F5 




601 


1A51 


23 




602 


1A52 


36 


FF 


603 


1A54 


2A 


FF12 


604 


1A57 


2 2 


F9AC 


605 


1 ASA 


2 1 


F9D0 


606 


1A5D 


22 


FF12 


607 


1A60 


3E 


81 


608 


1A62 


D3 


19 


609 


1A64 


F1 




610 


1A65 


C9 




61 1 








612 








613 








614 








615 


1A66 


2 1 


F9AB 


616 


1A69 


7E 




617 


1A6A 


A7 




618 


1A6B 


ca 




619 


1A6C 


7 2 




620 


1A6D 


2A 


F9AC 


621 


1A70 


22 


FF12 


622 


1A73 


3A 


F20E 


623 


1A76 


A7 




624 


1A77 


CO 




625 


1A78 


3E 


01 


626 


1A7A 


D3 


19 


627 


1A7C 


CO 





input 



output 



Rptst : 



hi - coinmand-st at us address 
a - translated character 



upper case exception 



A Iphexc : 



;lock exception table 

; tabl e size 

jsearch 

;quit if not found 

;get exception 



Checks for repeat character. If repeat character, the mil Msec 
timer is vector address is modified and the timer is set up 
for 0.5 second. The timer is kicked off. 



Id 


h I , captab 


Id 


be , cptbsz 


cpi r 




ret 


nz 


inc 


hi 


inc 


hi 


Id 


a, (hi) 


ret 





input 



a - translated character 



,-repeat char table ^ 
;number of repeat chars 
jtest for repeat chars 
;quit if not repeat char 
;mi 1 1 isec count 
;save it in table 
; repeat char save address. 
;save repeat char 

; repeat flag address 

;set repeat flag 

;get 1 mi 11 isec interrupt vector 

; save i t 

;kybd repeat key timer 

; subst i tute i t 

jenable mi 11 isec timmer 

;do it 

; recover character 



This routine stops the millisecond timer and restores the 
original timer vector 



Id 


hi .rptbl 


Id 


be ,-cntrp 


cpir 




ret 


nz 


Id 


hi , (tick) 


Id 


(mi 1 lent ) ,hl 


Id 


hi , rptchar 


Id 


(hi). a 


push 


af 


inc 


hi 


Id 


(hi ) ,setf Ig 


Id 


hi , (ctcvec + 2) 


Id 


(save) ,hl 


Id 


hi , rptc 1 k 


Id 


Cctcvec+2) ,hl 


Id 


a , encnt r 


out 


(ctcl).a' 


POP 


af 


ret 





Stpctc 1 : Id 
Id 
and 
ret 
Id 
Id 
Id 
Id 
and 
ret 
Id 
out 
ret 



hi , rpt f Ig 

a , ( h I ) 

a 

z 

(hi ) ,d 

hi , (save) 

(ctcvec+2) ,hl 

a , (spact ) 

a 

nz 

a , stent r 

(ctel ) ,a 



;fetch repeat char flag 

•,set flags 

;quit if no repeat keys 

;clear repeat char flag 

;original 1 mi 11 isec interrupt address 

jrestore it 

;fetch screen print flag 

;don't kill timer, if screen printing 
;stop timer 



U> 
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628 
629 
630 
631 
632 
633 
634 
635 
636 
637 
638 
639 
640 
64 1 

64 2 
643 
644 
645 
646 
647 
648 
649 
650 

65 1 
652 
653 
654 
655 
656 
657 
658 
659 
660 
661 
662 
663 
664 
665 
666 
667 
668 
669 
670 
671 
672 
673 
674 
675 
676 
677 
678 
679 
680 
68 1 
682 
683 



This is the optical mouse handler. The delta x and y mouse 
movement is accumulate and stored in memory locations. 



input 



ins t b 1 



a= mouse delta either x or y 
xy= zero for x mouse delta 

x'ff' for y mouse delta 
hl= cmdstat address 
cmdstat=bit 3 mouse moved 

bit 4 x delta negative 
bit 5 y delta negative 
=bit 7 mouse enabled user flag 
bit 6 intrp/npol 
bit 1 y/nx byte 
bit mouse table is updated 
=interrupt return byte 
=maximum horizontal display units 
=maximum vertical display units 

bit 0, mouse table updated 

x position of mouse 

y position of mouse 

prior x signed displacement 

prior y signed displacement 



mbyte 

xmax 

ymax 

output mstbl= 
x 1 oc = 
y 1 o c = 
d x mv = 
dymv = 

special requiremen 
The majori 
resident i 
since this 
reside in 
where the 
update by 
data struc 
the two-bu 
(MSPTR+0) 
(MSPTR+1) 
(MSPTR+2) 
(MSPTR+3) 
(MSPTR+4) 
(MSPTR+5) 
(MSPTR+6) 
(MSPTR+7) 
(MSPTR+8) 
(MSPTR+9) 
(MSPTR+A) 
(MSPTR+B) 
(MSPTR+C) 



ts 

ty of the mouse-pointer table is require memory 

n the in the user address space above X'BFFF' 

handle is ROM resident. Variables MSTBL AND MSPTR 
keyboard RAM space. Variable MSPTR pointers to 
user mouse table resides. These variable are 
both the handler and the user. The following 
ture resides in the user's RAM space only if 
tton mouse pointer is required for the applicaton: 
=MBYTE 
=XMAX-LSB 
-MSB 
=YMAX-LSB 
-MSB 
=XL0C-LSB 
-MSB 
=YL0C-LSB 
-MSB 
=DXMV-LSB 
-MSB 
=DYMV-LSB 
-MSB 



1A7D 


5F 




1A7E 


7E 




1A7F 


47 




1A80 


2 1 


F95D 


1AB3 


CB 


7E 


1A85 


CA 


19A0 


1A88 


DD 


E5 


1ABA 


. DC) 


2A F95E 



Mi ce : 



Id 
Id 
Id 
Id 
bit 

JP 

push 

Id 



e , a 

a , ( h 1 ) 

b,a 

h 1 , ms t b 1 

msf Ig, (hi ) 

z , nochar 

i x 

i x , (mspt r ) 



;save mouse delta 

;save cmd/status byte 
;mouse table 
;test for user enabled 
;quit if mouse handler 
;save register 
;fetch user's table 



is not enabled 



> 

"O 
"O 

n> 

3 
CL 
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604 


1A8E 


CB 


4E 


685 


1A90 


20 


26 


686 


1A92 


DD 


6E 05 


687 


1A95 


DO 


66 06 


688 


1A98 


7B 




689 


1A99 


CB 


60 


690 


1A9B 


CD 


1AEB 


69 1 


1A9E 


DD 


73 09 


692 


1AA1 


DD 


7 2 OA 


693 


1AA4 


DD 


5E 01 


694 


1AA7 


DD 


56 02 


695 


1AAA 


CD 


1B00 


696 


1AAD 


DD 


75 05 


697 


1AB0 


DD 


74 06 


690 


1AB3 


DD 


El 


699 


1AB5 


C3 


19B0 


700 


1AB8 


DD 


6E 07 


701 


1ABB 


DD 


66 08 


702 


1ABE 


7B 




703 


IABF 


CB 


68 


704 


1AC1 


CD 


1AEB 


705 


1AC4 


DD 


73 OB 


706 


•1AC7 


DD 


72 OC 


707 


1ACA 


DD 


5E 03 


708 


1ACD 


DD 


56 04 


709 


1AD0 


CD 


1B00 


710 


1AD3 


DD 


75 07 


71 1 


1AD6 


DD 


74 08 


712 


1AD9 


2 1 


F95D 


7 13 


1ADC 


CB 


C6 


714 


1ADE 


CB 


76 


715 


1AE0 


CA 


1AB3 


716 


1AE3 


DD 


7E 00 


717 


1AE6 


DD 


El , 


718 


1AE8 


C3 


19D4 


719 








720 








721 








722 








723 








724 








7 25 








726 








727 








7 28 


1AEB 


21) 


04 


7 29 


1AED 


16 


00 


730 


1AEF 


18 


07 


731 


1AF1 


16 


FF 


732 


1AF3 


7B 




733 


1AF4 


2F 




734 


1AF5 


C6 


01 


735 


1AF7 


5F 




736 


1AF8 


19 




737 


1AF9 


7C 




738 


1AFA 


A7 




739 


1AFB 


FO 





3.44 09-Dec- 


-81 


bi t 


xy, (hi ) 


jr 


n z , m i c e y 


Id 


1 . (ix+5) 


Id 


h, ( ix + 6) 


Id 


a , e 


bit 


xneg , b 


cal 1 


in i c e 1 


Id 


( i x + x '9' ) , e 


Id 


( i x + x ' a ' ) ,d 


Id 


e , ( i x + 1 ) 


Id 


d, ( ix + 2) 


cal 1 


mice 2 


Id 


(ix+5) . 1 


Id 


( ix + 6) ,h 


nicex 1 : pop 


i x 


JP 


peknoc 1 


n i c e y : Id 


1 . (ix+7) 


Id 


h. ( ix + 8) 


Id 


a , e 


bit 


yneg.b 


caM 


mice) 


Id 


( i x + x 'b ' ) ,e 


Id 


(ix+x'c'),d 


Id 


e, ( ix + 3) 


Id 


d, ( ix + 4) 


cal 1 


mi ce2 


Id 


(ix + 7) , 1 


Id 


( ix + 8) ,h 


Id 


hi .mstbl 


set 


msmov , (h 1 ) 


bit 


mint rp, (hi ) 


JP 


z.micexl 


Id 


a, ( i x ) 


Pop 


i x 


JP 


charout 



Mi ce 1 



mi ce 1 1 ; 



mi ce 1 2 : 



test y/nx mouse byte flag 
skip if y axis delta 
fetch current x position 

;save unsigned mouse delta byte 
;test polarity of x delta 
;add delta & do min value check 
;save signed mouse delta word 

;fetch max position value 

;do max value check 
;save position 

-.restore regiser 

jreturn to wait for y mouse byte 

{fetch current y position 

;save unsigned mouse delta byte 
;test polarity of y delta 
;add delta & do min value check 
;save signed mouse delta word 

jfetch max position value 

;do max value check 
-.save position 

;update mouse status 

;set the mouse update flag 

;test for interrupt mode 

;bye bye if polling mode 

;user interrupt byte 

;restore regiser 

;bye bye • 



This routine adds the delta to either the 

does minimum position check 

input e= mouse delta (absolute) 

zero set if positive mouse delta 

reset if negative mouse delta 



or y position and 



U1 



output h 1 = 



jr 

Id 

jr 

Id 

Id 

cpl 

add 

Id 

add 

Id 

and 

ret 



update position 



n 2 , m i c e 


1 1 


d 


zero 




mi ce 1 2 




d 


-1 




a , 


e 




a 


1 




e 
hi 


a 
,de 




a 


h 




a 






P 







-.skip if delta negative 
{set msb positive 

;set msb negative 
; recover de 1 ta 
;2's complement 

{put negative value back 

; add delta to mouse position 

{get msb 

-.skip if msb is positive 
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740 
741 
742 
743 
744 
745 
746 
747 
748 
749 
750 
751 
752 
753 
754 
755 
756 
757 
758 
759 
7 60 
761 
762 
763 
764 
765 
766 
767 
768 
769 
770 
771 
772 
773 
774 
775 
776 
777 
778 
779 
7 80 
781 
782 
783 
784 
785 
786 
787 
788 
789 
790 
791 
792 
793 
794 
795 



1AFC 
1AFF 



21 
C9 



0000 



Id 
ret 



hi .zero 



;set to minimum boundary 



1B00 


7A 




1B01 


BC 




1B02 


38 


04 


1B04 


7B 




1B05 


BD 




1B06 


30 


01 


1B08 


EB 




1B09 


3A 


F95D 


1B0C 


CB 


4F 


1B0E 


28 


04 


1B10 


CB 


8F 


IB 1 2 


18 


02 


1B14 


CB 


CF 


1B16 


3 2 


F95D 


1B19 


C.9 





1B1A 


C3 


F9AF 


IBID 


C3 


F167 


1B20 


C3 


F18F 


1B23 


C3 


FC3D 


1B26 


C3 


FA95 


000 F 






1B29 


C3 


F9AF 


1B2C 


C3 


F167 


1B2F 


C3 


F18F 


1B32 


C3 


FC45 


1B35 


(.3 


FA9D 



1B38 


(.5 




1B39 


D5 




1B3A 


E5 




1B3B 


2 1 


034A 


1B3E 


1 1 


F800 


1B41 


01 


0159 


1B44 


ED 


BO 


1B46 


E 1 




1B47 


D1 




1B48 


CI 




1B49 


C9 





This routine does a maximum x or y position check 
input h1= x or y position 
de= x or y max value 



output 



a = 



ms t b 1 



Mice2; 


id 


a.d 




cp 


h 




jr 


c , in i c e 2 1 




Id 


a , e 




cp 


1 




jr 


nc , mi ce2 2 


mi ce2 1 : 


ex 


de.hl 


mice22: 


Id 


a , (mstbl ) 




bit 


xy ,a 




jr 


z .mice 23 




res 


xy . a 




jr 


mice24 


mice23: 


set 


xy , a 


m i c e 2 4 : 


Id 
ret 


( ms t b 1 ) .a 



;msb position test 

;skip if msb too big 
; 1 sb posi t ion test 

;skip if 1 sb is not too big 
; force maximum limit 
;mouse table 
{complement xy flag 



jupdate table 



Jump table for keyboard translator and interrupt handler. 
Exit points and monitor adjustment points for the SIGNON 
overlay and boot overlay 



Rvl tbl : 



jtbl sz 
rv2tbl ; 



jp lpkybd 

jp mkey2 

jp mkey5 

jp mpnext 

jp mp rm tO 

equ $-rv1tbl 

jp lpkybd 

jp mkey2 

jp mkey5 

jp iiipne.x t + romof s 

jp mprmtOi-romof s 

The keyboard tables are restored to the original default values 
that are stored in rom 



;4.01 monitor lpkybd jump table 



;4.02 monitor lpkybd jump table 



Movtbl : 



push 

push 

push 

Id 

Id 

Id 

Idir 

pop 

pop 

pop 

ret 



be 

de 

1 1 1 

hi , tables 

de , tabl ed 

be , tabl ex 

hi 
de 
be 



J> Position encoded Keyboard handler MACRO-BO 3.44 09-Dec-8l 

"O ROM resident CRT Driver 

X3 

fl> 796 

3 797 .dephase 

B: 798 subttl RAM resident (Tables) 

X 799 page 



Position encoded Keyboard handler 
RAM resident (Tdhle.s) 



800 
B01 
802 
803 
804 
805 
806 
807 
808 
809 
810 
81 1 
8 12 
813 
814 
815 
816 
8 17 
818 
819 
820 
.821 
822 
823 
824 
825 
826 
827 
828 
829 
830 
831 
832 
8 33 
834 
835 
836 
837 
838 
8 39 
840 
841 
842 
843 
844 
845 
846 
847 
848 
849 
850 
851 
852 
853 
854 



03 4 A ' 



0010 



MACRO-BO 3.44 



tab I es : 



F800 


00 


IB 


31 


32 


F804 


33 


34 


35 


36 


FB08 


3 7 


38 


39 


30 


F80C 


2D 


3D 


08 


09 


F8 10' 


71 


77 


65 


72 


F814 


74 


79 


75 


69 


F818 


6F 


70 


5B 


5D 


F81C 


0D 


EE 


61 


73 


F8 20 


64 


66 


67 


68 


F824 


6 A 


6B 


6C 


3B 


F828 


27 


OA 


EC 


2E 


F82C 


7A 


78 


63 


76 


F830 


62 


6E 


6D 


2C 


F834 


2E 


2F 


ED 


IE 


F838 


EF 


20 


EB 


F1 


F83C 


F2 


F3 


F4 


F5 


F840 


F6 


F7 


FB 


F9 


F844 


FA 


FB 


FC 


37 


FB48 


38 


39 


2C 


34 


F84C 


35 


36 


BD 


31 


F850 


3 2 


33 


30 


E7 


FB54 


82 


84 


83 


80 


F858 


81 


E6 


FD 


7F 


F85C 


2B 


2D 


2A 


2F 


F860 


FO 


18 


BE 


8F 


F864 


AO 


A2 


A4 





F867 


no 


IB 


21 


40 


FB6B 


2 3 


24 


25 


5E 


F86F 


26 


2A 


28 


29 


F873 


5F 


2B 


08 


09 


F877 


51 


57 


45 


52 


F87B 


54 


59 


55 


49 


F87F • 


4F 


50 


7B 


7D 


F883 


OD 


EE 


41 


53 


F8B7 


44 


46 


47 


48 


F88B 


4A 


4B 


4C 


3A 


F88F 


22 


OA 


EC 


2E 


F893 


5 A 


58 


43 


56 


FB97 


4 2 


4E 


4D 


3C 


F89B 


ME 


3F 


ED 


IE 


F89F 


EF 


20 


EB 


F1 


F8A3 


F2 


F3 


F4 


F5 


FBA7 


F6 


F7 


F8 


F9 


F8AB 


FA 


FB 


FC 


37 



Tabl 



09-Dec-81 

.phase tabled 

.radix 16 
k/b unshifted table 

defb OOh. 1bh.31h, 

defb 37h.3Bh.39h, 

defb 7 1h.77h.65h, 

defb 6fh.70h.5bh, 

defb 64h.66h,67h, 

defb 27h.0ah.0ec, 

defb 62h.6eh.6dh, 

defb 0ef.20h.0eb, 

defb 0f6.0f7.0f8, 

defb 38h,39h;2ch, 

defb 32h.33h.30h, 

defb 8lh.0e6.0fd, 

defb OfO, I8h,8eh, 



; rom address 
: ram address 



32h.33h.34h, 
30h , 2dh , 3dh , 
72h,74h.79h, 
5dh.0dh.0ee, 
6Bh.6ah.6bh, 
2eh.7ah.78h, 
2ch,2eh,2fh, 
Of 1 ,0f2,0f3, 
0f9.0fa.0fb, 
34h,35h,36h, 
0e7,82h,84h, 
7fh,2bh,2dh, 
8fh.0a0.0a2, 



35h,36h 
08h,09h 
75h.69h 
61h,73h 
6ch.3bh 
63h.76h 
Oed. leh 
0f4,0f5 
0fc,37h 
0bd,31h 
83h,80h 
2ah.2fh 
0a4 



; ; K/b shifted 

Shtab: defb OOh . 1 bh , 2 1 h . 40h , 23h . 24h . 25h ,5eh 

defb 26h.2ah.28h.29h,5fh.2bh,08h.09h 

defb 5 1 h . 57h . 45h , 52h . 54h . 59h , 55h , 49h 

defb 4fh.5Qh,7bh.7dh.0dh.0ee.4 1h,53h 

defb .44h . 46h , 47h , 48h . 4ah , 4bh . 4ch . 3ah 

defb 22h.0ah.0ec . 2eh . 5ah , 5Bh , 43h , 56h 

defb 42h,4eh,4dh,3ch.3eh.3fh.0ed f leh 

defb Oef ,20h.0eb,0f 1 , Of 2 , Of 3 . Of 4 , Of 5 

defb Of 6, Of 7. Of 8. Of 9. Of a. Of b, Of c,37h 



nul .esc, 1 ,2,3,4,5,6 

7,8,9,0,-,=,bs, tab 

q,w,e,r,t,y,u,i 

o,p.(,l,cr,1ctr1 .a,s 

d.f ,9,h, j,k, 1 , ; 

' . If . lshif t , . .z.x.c.v 

b.n.m, , , . ,/,rshift,help 

rctrl ,sp,f 1 ,f2.f3,f4.f5 

f6.f7,f8.f9,f 10, f 11 ,f 12,7 

8.9, , ,4,5,6,=enter, 1 

2, 3,0, next , da rr, larr,rarr,h 

uarr .prev.acc .del ,+,-,mu1 ,d 

ins .can .msw 1 , msw2 , rx 1 ,rx2,r 

nul ,esc, ! ,©,#,$,%, a 

&..*,(.) ,_,+.bs,tab 

Q.W.E.R.T, Y.U.I 

O.P, {,) t cr t Icrtl ,A,S 

D,F.G,H.J,K,L, : 

", If , Ishift . . .Z.X.C.V 

B.N.M.<,>,?,rshif t .help 

rctrl ,sp, lock.fi ,f 2,f3,f4,f 

f6,f7,f8,f9,f 10, f 11 ,f 12,7 



> 

a> 

a. 
x" 



Posi t i 
RAM re 



an encode 
si dent (T 



ii Keyboard hand lei 
at) I es ) 



MACRO-80 3.44 



855 


F8AF 


38 


39 


2C 


34 


B56 


FBB3 


35 


36 


BD 


31 


B57 


FBB7 


32 


33 


30 


E7 


B58 


F8BB 


82 


84 


83 


80 


B59 


F8BF 


81 


E6 


FD 


7F 


B60 


F8C3 


2B 


2D 


2A 


2F 


861 


F8C7 


FO 


18 


BE 


8F 


B62 


F8CB 


A1 


A3 


A5 




B63 












B64 












B65 












866 


FBCE 


00 


9B 


91 


92 


B67 


F8D2 


93 


94 


95 


96 


86B 


F8D6 


97 


98 


99 


90 


B69 


F8DA 


IF 


9A 


88 


89 


8 70 


F8DE 


1 1 


17 


05 


12 


871 


FBE2 


14 


19 


15 


09 


B72 


F8E6 


OF 


10 


IB 


ID 


873 


F8EA 


80 


EE 


01 


13 


B74 


F8EE 


04 


06 


07 


08 


B75 


F8F2 


OA 


OB 


OC 


7E 


B76 


F8F6 


60 


8A 


EC 


AE 


877 


F8FA 


1A 


18 


03 


16 


878 


F8FE 


02 


OE 


OD 


1C 


879 


F902 


7C 


5C 


ED 


9E 


8B0 


F906 


EF 


00 


EB 


D1 


881 


F90A 


D2 


D3 


D4 


D5 


882 


F90E 


D6 


D7 


DB 


D9 


883. 


F912 


DA 


DB 


DC 


B7 


8B4 


F916 


B8 


B9 


AC 


B4 


BB5 


F91A 


B5 


B6 


FE 


B1 


886 


F91E 


B2 


B3 


BO 


C7 


887 


F922 


2 


04 


03 


IE 


BB8 


F926 


01 


C6 


DD 


FF 


889 


F92A 


AB 


AD 


AA 


AF 


890 


F92E 


DO 


DE 


8E 


8F 


891 


F932 


C8 


C9 


CA 




892 












893 


OOCA 










894 












B95 


F935 


UO 


00 


00 




896 


F93B 


00 


00 


00 




897 


0003 










898 


F93B 


00 








899 


F93C 


F4 








900 


F93D 


01 








901 


F93E 


3F 








902 


F93F 


UO 








903 


01F4 










904 


003F 










905 












906 


F940 


08 


OA 


OD 


20 


907 


F944 


2D 


2E 


2F 




90fl 


F947 


3D 


58 


78 


7F 


909 


F94B 


81 


82 


83 


B4 


910 


F94F 


EO 


EO 


EO 


EO 



09-Dec-8 1 

defb 
defb 
defb 
defb 



38h, 39h,2ch,34h,35h,36h,0bd,31h 
32h,33h,30h,0e7,82h,84h,83h,80h 
8 1h,0e6,0fd,7fh,2bh,2dh,2ah,2fh 
OfO, I8h,8eh,8fh,0a1 ,0a3,0a5 



; ; k/b coded 

Cdtab: defb 00h.9bh.91h, 



10 



cap tab : 
cptex : 
cptbsz 
shf t Ick: 
tick: 

tock : 

hi f sec 
tenths 

rptbl ; 



rptex : 



defb 
defb 
defb 
defb 
defb 
defb 
defb 
defb 
defb 
defb 
defb 
defb 

. radi x 

defb 
defb 
equ 

defb 
defb 
defb 
defb 
defb 
equ 
equ 

defb 
defb 
defb 
defb 
defb 



97h,98h,99h 
llh, 17h,05h 
Ofh, 10h, Ibh 
04h.06h,07h 
60h,08a,Qec 
02h,0eh,0dh 
Oef , OQh.Oeb 
0d6,0d7,0d8 
0b8.0b9.0ac 
Qb2,0b3,0b0 
0lh,0c6,0dd 
0d0.0de.8eh 

10 

0,0,0 

0,0,0 

($-captab)/2 



low hi f sec 

high hlfsec 

low tenths 

high tenths 

500 

63 



92h,93h, 
90h, Ifh, 
12h, 14h, 
1dh,8dh, 
Oflh.Oah, 
Oae , lah, 
lch,7ch, 
Odl ,0d2, 
0d9,0da, 
0b4,0b5, 
0c7,32h, 
Off ,Oab, 
8fh,0c8, 



94h,95h,96h 
9ah,88h.89h 
19h, 15h,09h 
Oee.Olh, 13h 
0bh,0ch,7eh 
1Bh,03h, 16h 
5ch,0ed,9eh 
0d3,0d4,0d5 
0db,0dc,0b7 
0b6,0f e.Obl 
04h,03h, leh 
Oad.Oaa.Oaf 
0c9,0ca 



8,9, , ,4,5,6,=enter, 1 
2, 3,0, next, da rr, larr.rarr.h 
uarr,prev,acc,del , + , -,mul ,d 
iVis , can,msw1 ,msw2, rxl ,rx2,r 

nul ,esc ,1,2,3,4,5,6 

7,8,9,0,-,=,bs,tab 

q,w,e,r,t,y,u,i 

o ,p, [ , 1 ,cr, Ictrl ,a,s 

d.f.g,h,j,k,l,~ 

% , If . lshif t , . .z.s.c.v 

b,n,m, , , | , \ , rshif t ,help 

rctrl.sp, lock.f 1 ,f2,f3,f4,f 

f6,f7,f8,f9,f 10,f I1,f12,7 

8,9. . ,4,5.6,=enter, 1 

2,3,0,next,darr, larr.rarr.h 

uarr ,prev ,acc ,del , + , - ,mul ,d 

ins , can ,msw 1 ,msw2,rx1 ,rx2,r 



;table of exceptions requiring shifting for 

;caps lock key. (3 excepts then 3 translates) 

; size of tabl e 

;if set, locks all keys to shift table if lock set 

;lsb - repeat char speed 

;insb 

; Isb 

; msb 

;0.5 second count 

; 1 6 chars/sec 



x '08* , x 'Oa' ,x 'Od' , x '20' 
x ' 2d' , x ' 2e' , x ' 2f ' 
x '3d' , x '58 ' , x '78' , x '7f ' 
x'81 ' ,x'82' ,x '83' ,x'84' 
x'eO' ,x'eO' ,x'eO' ,x'eO' 



bs , 1 f , cr, sp 

=,X,x,del 

ucur ,dcur , rcur , lcur 

16 TBD repeat keys 



O 



Position encoded Keyboard handler 
RAM resident (Tables) 



> 
"O 

n> 

3 



91 1 
912 
913 
914 
915 
916 
917 
91Q 
919 
920 

92 1 
922 
923 
924 
925 
926 
927 
928 
929 
930 
931 
932 
933 
934 
935 
936 
937 
938 
939 
940 
94 1 
942 
943 
944 
945 
946 
947 
94B 
949 
950 
951 
952 
953 
954 
955 
956 
957 
958 
959 
960 
961 
962 
963 
964 
965 
966 



0013 



F953 


ID 


2A 36 38 


F957 


3A 




F958 


£0 




0006 






0159 






F959 


E0 


E0 


F95B 


E0 


E0 


0002 






F95D 


00 




0007 






0006 






0003 






0001 






0000 






F95E 


0000 


0160 







F960 


2 3 


3C 


3E 


40 


F964 


5B 


5C 


50 


5E 


F968 


60 


7B 


7C 


7D 


F96C 


7E 









F96D 


2 3 


3C 


3E 


40 


F971 


5B 


5C 


5D 


5E 


F975 


60 


7B 


7C 


70 


F979 


7E 








000D 











F97A 
F97E 
F982 
F986 
F98A 
F98E 



21 23 2A 2B 
2C 2E 3C 3E 
40 5B 5C 5D 
5E 60 7B 7C 
7D 7E FF FF 
FF FF 



F990 


2 1 


23 


2A 


2B 


F994 


2C 


2E 


3C 


3E 


F99B 


40 


5B 


5C 


50 


F99( 


5E 


60 


7B 


7C 


F9A0 


70 


7E 


FF 


FF 


F9A4 


FF 


FF 






0016 











3.44 


09-Dec 


-81 


crit rp 


equ 


$-nptbl 


c t r 1 1 b ; 


db 


x ' Id' , x ' 2a 


ctrlex: 


db 


x ' eO' 


cntctr 


equ 


$-ctrl tb 


tabl ex 


equ 


$-tabl 


ups : 


defb 


x ' eO ' , x ' eO 


upsx : 


defb 


x ' eO ' , x ' eO 


upssz 


equ 


($-ups)/2 


ins t b 1 : 


defb 





ms f 1 9 


equ 


7 


mint rp 


equ 


6 


st rkup 


equ 


3 


xy 


equ 


1 


msinov 


equ 





msptr : 


def w 





ktabsz 


equ 


$-tabl 



Fontbl 



'36' , x '38' . x'3a' 



; lctr, lshf t , rshf t ,rctr, lck 

;19 TBD additional key stations 



upstroke exception key stations 

upstroke char or code translations 

size 

mouse table 

mouse translator enabled if set 

user interrupt with mbyte else user polls 

upstroke user enable flag 

set for x delta else y delta 

mouse table contains new data 

user address containing the following table 

size of k/b tables 



Font translation table, 
first the exception codes 

defb 23h,3ch, 3eh,40h,5bh,5ch,5dh,5eh 

defb 60h,7bh,7ch,7dh,7eh 






;; Now their translations 

defb 23h,3ch,3eh,40h,5bh,5ch,5dh,5eh 

defb 60h,7bh,7ch,7dh,7eh 

fontsz equ ($-fontbl)/2 ;size of font tables 

; ; Printer translation table 
; first the exception codes 

Prntbl: defb 2 1h , 23h , 2ah , 2bh , 2ch , 2eh , 3ch. 3eh 

defb 40h,5bh, 5ch , 5dh , 5eh , 60h , 7bh, 7ch 

defb 7dh,7eh,x ' f f ' , x 'f f ' , x 'f f ' , x' f f ' 

;; Now the translations 

defb 21h,23h,2ah,2bh,2ch,2eh t 3ch,3eh 
defb 40h . 5bh , 5ch , 5dh , 5eh , 60h , 7bh , 7ch 
defb 7dh,7eh, x'ff'.x'ff.x'ff'.x'ff 

prntsz equ ($-prntbl)/2 ;size of printer table 



§,l,\,),A/,(,| 

} ,~,TBD,TBD,TBD,TBD 



Position encoded Keyboard handler 
RAM resident (Tan)es) 



MACRO-80 3.44 



09-Dec-fll 



967 


F9A6 


no 


968 






969 






970 






971 


F9A7 


00 


972 


0007 




973 


0006 




974 


0005 




975 


0004 




976 


0003 




977 


0002 




978 


000 1 




979 


0000 




980 


F9AB 


0000 


981 


F9AA 


no 


982 


F9AB 


00 


983 


F9AC 


0000 


984 


F9AE 


00 


985 


0007 / 




986 


01AF 




987 






988 






989 






990 






991 






992 






993 






994 






995 






996 






997 






998 






999 






1000 






1001 






1002 






1003 






1004 


F9AF 


DB IE 


1005 


F9B1 


CD F9BE 


1006 


F9B4 


C3 1996 


1007 






1008 


F9B7 


CD F9C8 


1009 


F9BA 


DO 


1010 






10 11 


F9BB 


CI 


1012 


F9BC 


18 3B 


1013 






1014 






1015 






1016 






10 17 






1018 






1019 


F9BE 


F5 


1020 


F9BF 


DB 1C 


102 1 


F9C1 


32 F9AE 


1022 


F9C4 


CB FF 



escsq : 



def b 



cmds tat 


:defb 


00 


cmd 


equ 


7 


ustrk 


equ 


6 


yneg 


equ 


5 


xneg 


equ 


4 


mouse 


equ 


3 


Ctrl 


equ 


2 


shift 


equ 


1 


1 ock 


equ 





mi 1 1 cnt 


:def w 





rptchar 


:defb 





rpt f lg: 


defb 





save : 


def w 





romram: 


defb 





s iderom 


equ 


7 


olsiz 


equ 


$-tabled 



escape sequence flag 

0=> no sequence in progress 

1b=> expecting 2nd byte 

ff = > expecting 3rd byte 

comand-status byte 

command-status flag 

up stroke 

mouse y axis negative 

mouse x axis negative 

mouse active 

control key active 

shift key active 

lock key active 

current millisecond count 

repeat character 

repeat flag 

save address of the interrupt vector 

rom/ram memory bank status 

ram side 



k/b interrupt handler for the low profile position encoded k/b. 
The interrupt interrupt service routine inputs two or three 
bytes from the keyboard port. The first byte is the cmd/status 
byte. Appropriate information is saved in memory and the return 
from interrupt code is invoked. The second and third byte(mouse) 
is position encoded data or mouse displacement is analyzed, 
translated, and return to the existing keyboard handler if the 
information is valid; otherwise it is truncated and a return 
from interrupt is invoked. All registers saved except for the 
A register. 

input- keyboard input port (data complemented) kbdat 

output- Carry flag set - Command byte or truncated character 
Carry flag reset - Translated character in A register 

; read k/b port 

;switch to romside 

-.decode posn. enc . k/b 

;jp instead of call - interrupt stack small 

;restore original memory side 

jreturn to xerox code with char. 

;here if command byte 

; throw away return address 

jreturn from interrupt (via xerox) 

Romside saves the status of the current side of memory 
and switches to romside. 



Lpkybd : 


in 


a, (kbdat) 




cal 1 


roms ide 




JP 


pekhdl. 


1 pkex t : 


cal 1 


rams ide 




ret 


nc 




pop 


be 




jr 


rptc 1 k2 



output romraiiF status of syspio 



Roms ide : push 
in 
Id 
set 



af 

a , ( syspi o) 
( romram) , a 
siderom.a 



;save register 

; read ram/rorn status 

;save it 

jforce rom side 






Position encoded Keyboard handler 
RAM resident (Tables) 



MACRO-BO 3.44 



> 

■a 

Q. 



1023 

1024 

1025 

1026 

1027 

1028 

1029 

1030 

1031 

1032 

1033 

1034 

1035 

1036 

1037 

1038 

1039 

1040 

104 1 

1042 

1043 

1044 

1045 

1046 

1047 

1048 

1049 

1050 

1051 

1052 

1053 

1054 

1055 

1056 

1057 

105B 

1059 

1060 

1061 

1062 

1063 

1064 

1065 

1066 

1067 

1068 

1069 

1070 

1071 

1072 

1073 

1074. 

1075 

1076 

1077 

1078 



F9C6 



10 04 



F9CB 


F5 




F9C9 


3A 


F9AE 


F9CC 


03 


1C 


F9CE 


F1 




F9CF 


C9 





F9D0 


ED 


73 F1EC 


F9D4 


3 1 


FF50 


F9D7 


E5 




F9D0 


F5 




F9D9 


C5 




F9DA 


3 A 


F9AB 


F9DD 


A7 




F9DE 


28 


19 


F9E0 


2A 


F9A8 


F9E3 


7C 




F9E4 


65 




F9E5 


20 


06 


F9E7 


20 




F9E8 


22 


F9A8 


F9EB 


10 


OC 


F9ED 


2A 


F93E 


F9F0 


2 2 


F9A8 


F9F3 


3 A 


F9AA 


F9F6 


C3 


F06F 


F9F9 


C3 


F072 



F9FC 


F3 




F9FD 


CD 


F9BE 


FAOO 


CD 


190C 


FA03 


CD 


F9C8 


FA06 


FB 




FA07 


C9 




FA07 






0208 







09-Dec-81 

jr rmside2 

Ramside restores the ram/rom memory back to where it was 

input romram= ; status of prior ram/rom 



Ramside : push 
Id 

rms ide2 : out 
pop 
ret 



af 

a , ( romram) 

(syspio) , a 

af 



;save register 

jrecover prior ram/rom status 

;switch it 



This routine is the repeat key timer interrupt handler. If the 
the repeat flag or the count is not zero, then the return from 
interrupt is invoked. If the count is zero, then the repeat 
character is passed to the ASCII keyboard handler. 

input rptflg -repeat flag 
rptchar -repeat char 
mil lent -timer table 

output a -repeat char if count is zero 



Rptclk: 


Id 


( savstk) , sp 




Id 


sp, intstk 




push 


hi 




push 


af 




push 


be 




Id 


a. (rptflg) 




and 


a 




jr 


z ,rptclk2 




Id 


hi , (mi 1 lent ) 




Id 


a ,h 




or 


1 




jr 


z , rptc 1 k 1 




dec 


hi 




Id 


(mil lent ) ,h1 




jr 


rptclk2 x 


rptc.l k 1 


: Id 


hi , (tock) 




Id 


(mi 1 lent) ,hl 




Id 


a , ( rptchar) 




JP 


key2 


rptclk2 


: JP 


key5 



; ; Si out 

Rxs i oo : di 

call 
cal 1 
cal 1 
ei 
ret 
kbramend equ 
o 1 s i z3 equ 



;save current stack ptr 
; temporary interrupt stack 
;save registers 



jrepeat key flag 

;set flags 

;quit if not in repeat key mode 

{Current millisec count 

; test count 

;skip if time elasped 

;dcr count 

;save millisec count 

;quit if not time 

jreset millisec count 

;fetch repeat char 

•,give char to keyboard key 



output to channel b after translation and 
escape sequence handling 

;char in a 
romside ; switch to romside 

rmposend ; does real work 
ramside ;restore original memory side 



$-1 
$-tabled 



;last location of code in ram 
;size of relocatable code 



.dephase 



> 

o 

XJ 

x" 



Position encoded keyboard handler 
Overlay (signon) 

1079 
1080 
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subttl Overlay (signon) 
page 






*— Position encoded keyboard handler 



Ni 



MACRO-80 3.44 



09~Dec-8l 



Over] ay (si gnon ) 



08 1 
082 
083 
084 
085 
086 
087 
088 
089 
090 
091 
092 
093 
094 
095 
096 
097 
098 
099 
100 
101 
102 
103 
104 
105 
106 
107 
108 
109 
1 10 
1 1 1 
1 12 
1 13 
1 14 
1 15 
1 16 
1 17 
1 18 
1 19 
120 
121 
122 
123 
124 
125 
126 
127 
128 
129 
130 
131 
132 
133 
134 
135 



0552' 



FC50 


21 


F09 1 


FC60 


DB 


1C 


FC62 


CB 


47 


FC64 


28 


26 


FC66 


F3 




FC67 


3E 


CF 


FC69 


D3 


ID 


FC6B 


3E 


38 


FC6D 


03 


ID 


FC6F 


3E 


80 


FC71 


D3 


1C 


FC73 


3E 


DO 


FC75 


03 


10 


FC77 


10 


FE 


FC79 


OB 


1C 


FC7B 


( B 


67 


FC7D 


3E 


02 


FC7F 


20 


04 


FC81 


CB 


E6 


FC83 


3E 


03 


FC85 


03. 


10 


FC87 


32 


FF54 


FC8A 


18 


IE 


FC8C 


CB 


F6 


FC8E 


2 1 


F708 


FC9 1 


1 1 


F470 


FC94 


01 


0300 


FC97 


ED 


BO 


FC99 , 


E6 


02 


FC9B ' 


20 


OD 


FC9D 


2 1 


F361 


FCAO 


06 


08 


FCA2 


7E 




FCA3 


EE 


04 


FCA5 


77 




FCA6 


23 




FCA7 


23 




FCA8 


10 


F8 


FCAA 


21 


034A 


FCAD 


1 1 


F800 


FCBO 


01 


0208 


FCB3 


ED 


BO 


FCB5 


2 1 


FA08 


FCB8 


22 


FF3C 


FCBB 


2 1 


0000 


FCBE 


CD 


F03C 


FCC1 


7C 




FCC2 


2 1 


10D0 


FCC5 


FE 


01 



; ; 


s ignon 


- Announce Sysl 


:em 


» 

rxs ign : 










.phase 


tea 




Si gnon: 


Id 


hi , conf g 






in 


a , (syspi o) 






bit 


O.a 






jr 


z t s ign 3 






di 








Id 


a, 1 1001 1 1 lb 






out 


(sysct 1 ) , a 






Id 


a, 001 1 1000b 






out 


(sysct 1 ) ,a 






Id 


a. 10000000b 






out 


(syspio) , a 






Id 


a.OdOh 






out 


(wd1797),a 




s ignl : 


djnz 


s ign 1 






in 


a , ( syspio) 






bit 


c . f i ve , a 






Id 


a. 2 






jr 


nz , sign2 






set 


c . f i ve , (hi ) 






Id 


a. 3 




s ign 2 : 


out 


(wd1797) ,a 






Id 


(steprt ) ,a 






jr 


sign4 




s ign3 : 


set 


c . s a s i , (hi ) 






Id 


hi .Rigdpb 






Id 


de , F i vdpb 






Id 


be , Sas id 1 






Idir 








and 


2 






jr 


nz , s i^n4 






Id 


hi , Sel tabt 1 






Id 


b,8 




s ign3a: 


Id 


a, (hi ) 






xor 


4 






Id 


(hi ) ,a 






i nc 


hi 






inc 


hi 






djnz 


s ign3a 




s ign4 ; 


Id 


hi .tables 






Id 


de , tabl ed 






Id 


be , o 1 s i z3 






Idir 








Id 


h 1 , kbramend-*- 1 






Id 


( a v a i lb) , h 1 






Id 


hi ,0 






cal 1 


conf ig 






Id 


a,h 






Id 


hi , xrs ign+sigof f 




cp 


rev 1 





; source address in rom 

{execution in transient command area 

-.point to configuration byte 

; check configuration 

;if SASI interface present 

; set Pio B in Bit Mode 

; turn around dO , 1 , 2 

jensure rom switched on 
;drop all drive selects 
jreset wd-1797-02 

; wai t 1 797 not busy 



[preset 10 msec step rate 
; i f not 5" 

;set long step 
{restore / unload heads 



;set Sasi card installed 

;set address of rigid dpb 

;set address of 5.25" floppy dpb 

;set sasi driver length 

;Move driver down 



i f not A/E swap 



;move rx resident code to ram 



;move on top of GETHLP 
;next available ram 1 oc 
; tel 1 the world 

;get monitor configuration 

;monitor level 

■romofs ;assume 4.01 level location 



Pos i t i on encoded 
Over- 1 ay (signon) 



136 
137 
130 
.139 
140 
141 
142 
143 
144 
145 
146 
147 
148 
149 
150 
151 
152 
153 
154 
155 
156 
157 
158 
159 
160 
161 
162 
163 
164 
165 
166 
167 
168 
169 
170 
171 
172 
173 
174 
175 
176 
177 
178 
179 
180 
181 
182 
183 
184 
185 
186 
187 
188 
189 
190. 



•eyhoard handler 



FCC7 


28 


03 






FCC9 


2 1 


10DB 




FCCC 


1 1 


FCE6 




FCCF . 


1 


0004 




FCD2 


ED 


BO 






FCD4 


CD 


F293 




FCD7 


CD 


F075 




FCDA 


1A 








FCDB 


IB 


38 






FCDD 


38 


32 


30 


2D 


FCE1 


49 


49 


20 


76 


FCE5 


20 








FCE6 


00 


00 


00 


00 


FCEA 


20 


IF 


1C 


20 


FCEE 


31 


39 


38 


33 


FCF2 


20 


58 


65 


72 


FCF6 


6F 


78 


20 


43 


FCFA 


6F 


72 


70 




FCFD 


20 


28 


76 




FDOO 


30 


31 


33 




FD03 


29 


OD 


OA 




FD06 


OA 








FD07 


4C 


20 


2D 


20 


FDOB 


4C 


6F 


61 


64 


FDOF 


20 


53 


79 


73 


FD13 


74 


65 


6D 




FD16 


OD 


OA 






FD18 


48 


20 


2D 


20 


FD1C 


48 


6F 


73 


74 


FD20 


20 


54 


65 


72 


FD24 


6D 


69 


6E 


61 


FD28 


6C 








FD29 


OD 


OA 







FD2B 


54 


20 


2D 


20 


FD2F 


54 


79 


70 


65 


FD33 


7 7 


72 


69 


74 


FD37 


65 


72 






FD39 


OD 


OA 







FD3B 



7 04 



FD3D 


CD 


F006 


FD40 


CA 


FQ03 


FD43 


CD 


F009 


FD46 


18 


F5 


OOEB 







3.44 


09-Dec- 


-81 




jr 


z , s ign7 




Id 


hi , xrs ign 


s ign7 : 


Id 


de , sign6 




Id 


be. 4 




Idir 






cal 1 


crtof f 




cal 1 


pnex t 




defb 


c 1 rs 




defb 


esc , ' 8 ' 




def m 


'820-11 v 


s ign6 : 


defb 


0,0,0,0 




def in 


' ' ,31 .28 



defb 
endi f 

defb 

devour : cal 1 

JP 

cal 1 
jr 

rxsigl equ 



;skip if 4.01 
hi , xrs ign+s igof f ;4.02+ level location 

;put it in our signon message 



;di sable rom bank 



;clear screen 

;set low light as default mode 



;*********** space for the XR rev value 
1983 Xerox Corp' 



defm ' (v' 

defm ver/ lOO+'O' , (ver mod 1 00) / 10+ ' ' , ( ver mod 10)+'0' 

defb ')' ,cr, If 

defb If 

defm 'L - Load Sys,tem' 



defb cr , 1 f 

if o . term 

defm 'H - Host Terminal 



defb cr , 1 f 
endif 

if o . term 

defb 'T - Typewriter' 



cr, If 



7,eot 

const 
z , warm 
con in 
devour 
$-signon 



;go enter monitor 



.dephase 

subttl Overlay (boot) 

page 
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1 192 








1 193 








1 194 


063D' 






1 195 








1 196 


FC55 






1 197 


FC5D 


21 


FF5D 


1 198 


FC60 


7E 




1 199 


FC61 


2C 




1200 


FC62 


D6 


OD 


1201 


FC64 


28 


OB 


1202 


FC66 


FE 


13 


1203 


FC68 


28 


F6 


1204 


FC6A 


06 


34 


1205 


FC6C 


08 




1206 


FC6D 


FE 


10 


1207 


FC6F 


3F 




1208 


FC70 


D8 




1209 


FC71 


4F 




12 10 


FC72 


C6 


41 


1211 


FC7 4 


3 2 


FD72 


12 12 


FC77 


2E 


00 


1213 


FC79 


C5 




12 14 


FC7A 


E5 




1215 


FC7B 


CD 


FD89 


1216 


FC7E 


2 1 


FD6E 


1217 


FC8 1 


E5 




12 18 


FC82 


OE 


00 


12 19 


FC84 


CD 


F01B 


1220 


FC87 


CO 




1221 


FC88 


3E 


FF 


1222 


FC8A 


12 




1223 


FC8B 


1 1 


OOOA 


1224 


FC8E 


19 




12 25 


FC8F 


5E 




1226 


FC90 


23 




1227 


FC91 


56 




1228 


FC92 


CD 


F01E 


1229 


FC95 


1A 




1230 


FC96 


3 2 


FD6D 


1231 


FC99 


B7 




1232 


FC9A 


20 


20 


1233 


FC9C 


21 


OOOD 


1234 


FC9F 


19 




1235 


FCAO 


4E 




1236 


FCA1 


23 




1237 


FCA2 


46 




1238 


FCA3 


OB 




1239 


FCA4 


ED 


43 F, 


1240 








1241 


FCA8 


UE 


ID 


1242 


FCAA 


21 


ED80 


1243 


FCAD 


CD 


F024 


1244 


FCBO 


CO 




1245 


FCB1 


OE 


IE 


1246 


FCB3 


21 


EE80 



FA1 1 



rxboot : 




. phase 


tca-romof s 


ds 


romofs , 


Id 


hi , 1 inbuf+1 


boot 1 : Id 


a, (hi) ' 


inc 


1 


sub 


cr 


jr 


z,boot2 


cp 


' ' -cr 


jr 


z .boot 1 


sub 


' A ' -cr 


ret 


c 


cp 


16 


ccf 




ret 


c 


boot2: Id 


c , a 


add 


a, 'A' 


Id 


(bootd) , a 


Id 


1 ,0 


push 


be 


push 


hi 


cal 1 


swap 


Id 


hi , booter 


push 


hi 


Id 


c.O 


cal 1 


se 1 ect 


ret 


nz 


Id 


a,-1 


Id 


(de) ,a 


Id 


de.10 


add 


hi ,de 


Id 


e.(hl ) 


inc 


hi 


Id 


d . ( h 1 ) 


cal 1 


home 


Id 


a, (de) 


Id 


(boots ) , a 


or 


a 


jr 


nz , boot 3 


Id 


h 1 , 1 3 


add 


hi .de 


Id 


c, (hi ) 


inc 


hi 


Id 


b,(hl) 


dec 


be 


Id • 


(phy t rk ) ,bc 


Id 


c , rtabl 


Id 


hi .bootbf 


cal 1 


read 


ret 


nz 


Id 


c , rtab1+ Ipkof s 


Id 


hi .bootbf +x ' 100 



; rom source address 
.-execution address o/l area 
;4.01 overlay start address 
;4.02 overlay start address 
; scan command line 



;if no parameter, boot from A: 
,-skip leading blanks 
; i f inval id drive 



; i f bad drive 

;set boot drive selected 

;set up error message 
; set A : 



;switch boot drive with A: 
;set boot error return 

;then boot from A: 

;if drive not configured or density error 

;set dpb address offset within dph 
;set dpb address 



;get low sectors per track 
; inform boot loader 

; i f not rigid 

;set reserved track offset within dpb 

;get reserved tracks 



;point behind directory 
;do impl ied seek 
;here for rigid 
;first rigid sector 
;buf f er 
; layout and k/b tables 

;2nd rigid sector 
; buffer 



Position encoded Keyboard handler 

Overlay (boot) 
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1247 


FCB6 


CD 


F024 


1248 


FCB9 


CO 




1249 


FCBA 


18 


20 


1250 


FCBC 






125 1 


FCBC 


FE 


IB 


1252 


FCBE 


DA 


FD52 


1253 


FCC1 


OE 


04 


1254 


FCC3 


21 


ED80 


1255 


FCC6 


CD 


F024 


1256 


FCC9 


CO 




1257 


FCCA 


OE 


05 


1258 


FCCC 


21 


EEOO 


1259 


FCCF 


CD 


F024 


1260 


FCD2 


CO 




1261 


FCD3 


OE 


06 


1262 


FCD5 


21 


EE80 


1263 


FCD8 


CD 


F024 


1264 


FCDB 


CO 




1265 


FCDC 






1266 


FCDC 


3A 


ED80 


1267 


FCDF 


FE 


E5 


1268 


FCE1 


28 


6F 


1269 


FCE3 


3A 


ED81 


1270 


FCE6 


FE 


6B 


1271 


FCE8 


20 


68 


1272 


FCEA 


3A 


ED82 


1273 


FCED 


FE 


66 


1274 


FCEF 


20 


61 


1275 


FCF1 


3A 


ED83 


1276 


' FCF4 


FE 


70 


1277 


FCF6 


20 


5A 


1278 


FCF8 


21 


ED84 


1279 


FCFB 


1 1 


F800 


1280 


FCFE 


01 


160 


1281 


FD01 


ED 


BO 


1282 


FD03 


OE 


IF 


1283 


FD05 


3A 


FD6D 


1284 


FD08 


B7 




1285 


FD09 


28 


02 


1286 


FDOB 


OE 


07 


1287 


FDOD 


2 1 


ED80 


1288 


FD10 


CD 


F024 


1289 


FD13 


CO 




1290 


FD14 


3 A 


ED80 


129 1 


FD17 


FE 


E5 


1292 


FD19 


28 


37 


1293 


FD1B 


2 1 


ED80 


1294 


F01E 


1 1 


F960 


1295 


FD21 


01 


0046 


1296 


FD24 


ED 


BO 


1297 








1298 








1299 








1300 


FD26 


DD 


2A F019 


1301 


FD2A 


DD 


36 00 C3 


1302:-,., 


... r .FD2E 


DD 


36 01 FC 



boot 3 : 



rxbOl ; 



boot5 : 



cal 1 

ret 

jr 

cp 

JP 

Id 

Id 

cal 1 

ret 

Id 

Id 

cal I 

ret 

Id 

Id 

cal 1 

ret 

Id 

cp 

jr 

Id 

cp 

jr 

Id 

cp 

jr 

Id 

cp 

jr 

Id 

Id 

Id 

ldir 

Id 

Id 

or 

jr 

Id 

Id 

cal 1 

ret 

Id 

cp 

jr 

Id 

Id 

Id 

ldir 



read 

nz 

rxbOl 



; layout' and k/b tables 



here for floppy 

double density? 

no - ex i t 

first floppy sector 

buffer 

layout table and half of k/b 



jsecond floppy sector 
;midle third of k/b tables 



27 

c ,boot4 

c.f tabl 

hi .bootbf 

read 

nz 

c ,f tab2 

hi .bootbf+128 

read 

nz 

c , f tab2+ Ipkof s ;third floppy sector 

hi .bootbf-*- 128+ 128 

read ;last third of k/b tables 

nz 

;check tables are present 
a , (bootbf + 1 ang) ; language no. set? 
0e5h 

z,boot4 ;no - exit 

a , (bootbf +kbrd) ;k/b tables present? 
'k' 

nz,boot4 ;no - exit 
a, (bootbf -t-font ) ;font tables present? 
'f ' 

nz,boot4 ;no - exit 
a , (bootbf +prnt ) jprinter tables prsent? 

■'P' 

nz,boot4 ;no - exit 

hi .bootbf +kbrdtb ;move in k/b tables 

de , tab 1 ed 
be . ktabsz 



c , rtab2+ lpkof s 

a , (boots) 

a 

z , boot5 

c , f tab3+ lpkof s 

hi .bootbf 

read 

nz 

a, (bootbf) 

0e5h 

z ,boot4 

hi .bootbf 

de , f ontbl 

bc.f ontsz*2+prntsz*2 



3rd rigid sector 
rigid or floppy? 

rigid 

floppy - 4th sector 

buffer 

font and print tables 

;conf igured? 

;no -exit 

;inove font & print tables in 



alter SIOOUT 

Id i x . (moni t r+s iof f ) ; sioout address 

Id (ix),0c3h ;jump instruction 

Id ( i x+ 1 ) , 1 ow rxs ioo 



Rt&s i t i on' encoded Keyboard hand lei 
6yer I ay (boot ) 



MACRO-80 3.44 



1303 


FD32 


DD 


36 02 


F9 


1304 










1305 










1306 










1307 


FD36 


DD 


2A FO 


10 


1308 


FD3A 


DD 


36 12 


85 


1309 


FD3E 


DD 


36 13 


18 


1310 


FD42 


DD 


21 F22F 


13 11 


FD46 


DD 


36 00 


C3 


13 12; 


FD4A 


DD 


36 01 


D6 


1313 


FD4E 


DD 


36 02 


18 


1314 


FD52 








1315 


FD52 


CI 






1316 


FD53 


C1 






1317 


FD54 


El 






1318 


FD55 


CD 


FD89 




1319 


FD58 


CI 






1320 


FD59 


21 


0000 




1321 


FD5C 


CD 


F03C 




1322 


FD5F 


7C 






1323 


FD6Q 


2 1 


1 1B8 




1324 


FD63 


FE 


01 




1325 


FD65 


28 


03 




1326 


FD67 


2 1 


1 ICO 




1327 


FD6A 


C3 


F078 




1328 


FD6D 


00 






1329 










1330 










1331 










1332 


FD6E 


CD 


F075 




1333 


FD7 1 


07 






1334 


FD72 


64 


3A 54 


61 


1335 


F076 


62 


6C 65 


73 


1336 


FD7A 


20 


4C 6F 


61 


1337 


FD7E 


64 


20 65 


72 


1338 


FD82 


72 


6F 7 2 


2E 


1339 


FD86 


04 






1340 


FD87 


C 1 






134 1 


• FD88 


E 1 






1342 










1343 










1344 










1345 










1346 










1347 










1348 


FD89 


lib 


00 




1349 


FD8B 


60 






1350 


FD8C 


1 1 


F360 




1351 


FD8F 


29 






1352 


FD90 


19 






1353 


FD91 


EB 






1354 


FD92 


09 






1355 


FD93 


09 






1356 


FD94 


06 


02 




1357 


FD96 


4E 






1358 


FP97 


1A 







boot4 : 



boot6 : 
boots : 



Swap : 



09-Dec-81 

Id (ix+2),high rxsioo 
alter crt dri ver 



Id 
Id 
Id 
Id 
Id 
Id 
Id 

pop 

pop 

pop 

cal 1 

pop 

Id 

cal 1 

Id 

Id 

cp 

jr 

Id 

JP 
defb 

Booter 



Booter : ca 1 1 

defb 

bootd: defm 



defb 

pop 

pop 



swap 1 ; 



Swap - 
Ent ry : 



Id 

Id 

Id 

add 

add 

ex 

add 

add 

Id 

Id 

Id 



i x , (moni tr+f crtof ) jaddress of fast crt handler 

( i x+crtcal 1 ) , 1 ow rxcrt 

( i x+crtcal 1+ 1 ) ,high rxcrt 

ix.sprntl jaddress of screenprint patch 

(ix),0c3h ;jump instruction 

(ix+1),low scrprt 

(ix+2),high scrprt 

;here to exit 
be ; throw away booter return 

be ;9et disk swap parameters 

h 1 

swap ;swap them back for xerox boot 

be ; throw away return address 

h 1 , 

config ;get monitor configuration 

a,h 

hi , xrboot-romof s ;assumed 4.01 monitor boot overlay address 
revl 

z ,boot6 ;skip if 4.01 

hl.xrboot -.address of 4.02+ monitor boot overlay 
prboff jenter xerox code to execute boot 

;workbyte to save disk type 

- Boot Error Processor. 

pnext 

7 

'd:Tables Load error. ' 



eot 

be 

hi 



;switch drives back 



swap logical drives. 

C = first drive index, 0-15 
L = second drive index, 0-15 



b,0 

h.b 

de , se 1 tab 

hi ,hl 

hi ,de 

d e , h 1 

hi ,bc 

hi ,bc 

b..2 

c , ( h 1 ) 

a, (de) 



jelear upper indices 

;set select table address 

;set second address to DE , get seltab to HL 
;set first address to HL 
;swap two bytes 



> 

T3 
X* 



Pos i t i on 


encoded 


hey bo a 


Over lay ( 


boot ) 




1359 


FD98 


7 7 


1360 


FD99 


79 


1361 


FD9A 


12 


1362 


FD9B 


23 


1363 


FD9C 


13 


1364 


FD9D 


10 F7 


1365 


FD9F 


C9 


1366 






1367 






1368 


0788' 




1369 


0788' 




1370 






1371 






1372 






1373 






1374 






1375 






1376 






1377 


v 




1378 


07DC 


F9 7A 


1379 


07DE' 


F960 


1380 


Q7E0' 


F95D; 


il38l 


07E2' 


.:' F959 


! ,138 2 


07E4' 


F958 


1383 


07E6' 


F953 


1384 


07E8' 


F94F 


1385 


07EA' 


F940 


1386 


07EC 


F93C 


1387 


07EE' 


F93B 


1388 


07F0' 


F938 


1389 


07F2' 


F935 


1390 \ 


07F4' ... 


■F.BCE 


139 1 


07F6'. 


F867 


1392 


07F8' 


F800 


1393 






1394 


07FA' 


OD 


1395 


07FB' 


00 FF 


1396 






1397 






1398 






1399 






1400 


07F0* 


AA 55 


1401 


07FF ' 


00 


1402 i ■ 






1403 






1404 , r 







3.44 


09-Dec- 


-81 






Id 


(hi) 


a 




Id 


a , c 






Id 


(cie) 


a 




inc 


hi 






inc 


de 






d jnz 


swap 






ret 








. dephase 




romtop : 









def s 



;if swap not complete 



( roms iz-x'24')-( romt op-start ) , -1 



Drct ry : 



ipid: 



Drctry is a table containing the RAM addresses of the keyboard 
tables. This table, is located on ROM side of memory. The 
ROM address must be offset by x'1800' since resides in 
the fourth 2kx8 ROM slot. This directory is helpful if future 
release require the RAM tables to reside in a different RAM 
1 ocat ion 

print exception table 

font exception table 

mouse table 

upstroke table 

function key inhibit expansion table 

function key inhibit table 

repeat key expansion table 

repeat key table 

repeat speed table 

shift lock flag 

alpha lock expansion table 

alpha 1 ock table 

code '+ tabl e 

shift table > 

unshifted table 



def w 


prntbl 


def w 


fontbl 


def w 


mstbl 


def w 


ups 


def w 


ct r 1 ex 


def w 


ctrl tb 


def w 


rptex 


def w 


rptbl 


def w 


tick 


def w 


shf t Ick 


def w 


cptex 


def w 


captab 


def w 


cdtab 


def w 


shtab 


def w 


tabl 



defb ver 

defb x '00' , x 'f f ' 



; revi si on 1 eve 1 ' 

; low profile kybd id 



define checkword to let xerox kno^ 
that we are present 



defb 0aah,55h 

defb 

Subtt 1 Symbol,, Table 
end 



;id 

; space for checksum 






Po s i t i 


o n e n coded 


Symbo 1 


Table 


Macros 




Symbo 1 


s : 


1A30 


ALPHEXC 


FF3C 


AVAILB 


FC6Q 


B00T1 


FD52 


B00T4 


ED8G 


800TBF 


FD60 


BOOTS 


F935 


CAPTAB 


FFB4 


'CHRSAV 


19A1 


CMDB 


0006 


CNFBYTE 


0013 


GNTRP 


F009 


CONIN 


F938 


CPTEX 


0102 


CRTD1 


0019 


CTC1 


F958 


CTRLEX 


FFAC 


CURSOR 


000 1 


ENCNTR 


F9A6 


ESCSQ 


F470 


FIVDPB 


10CA 


FON2 


F960 


FONTBL 


0005 


FTAB2 1 


01DD 


GRPAD 


F066 


IDLE 


00 IE 


KBDAT 


FA07 


KBRAMEND 


FF1.A 


KBVEC 


0160 


KTABSZ 


0000. 


LANG 


FF5C 


LINBUF 


07FB' 


LPID 


F9AF 


LPKYBD 


1AEB 


MICE1 


1B00 


MICE2 


1B14 


MICE23 


1AB8 


MICEY 


F167 


MKEY2 


F000 


MONITR 


FC3D 


MPNEXT 


0000 


MSMOV 


19A0 


NOCHAR 


01AF 


OLSIZ 


1996 


PEKHDL 


19A0 


PEKN0C2 


F075 


PNEXT 


1939 


P0S02 


1947 


P0S05 


1914 


POSEND 


F070 


PRBOFF 


00 16 


PRNTSZ 


19B3 


PTR01 



Ncyijuard handler 



MACRO-80 3.44 



09-Dec-01 



1A23 

0002 

FC71 

FOOD 

FD72 

0004 

FACE 

001 A 

1A1F 

0Q3C 

F091 

F006 

000D 

0196 

FF10 

F953 

FD3D 

0004 

0007 

18CF 

18A6, 

OOOD 

0006 

01F4 

FF50 

0008 

0001 

F06F 

F06C 

FFB2 

0000 

F9B7 

F0E3 

1AF1 

1B08 

IB 16 

F9A8 

F18F 

0003 

FA95 

F95E 

187E 

0208 

19AD 

198F 

1986 

1939 

1954 

1959 

0003 

FA62 

F9C8 



ALPHTST 

B0FF1 

B00T2 

B00T5 

BOOTD 

C.FIVE 

CDTAB 

CLRS 

CM0B1 

CNFGOFF 

CONFG 

CONST 

CR 

CRTD2 

CTCVEC 

CTRLTB 

DEVOUR 

EOT 

ESCTSZ 

FNTRAN 

FONCHK 

FONTSZ 

FTAB3 

HLFSEC 

INTSTK 

KBLP 

KBRD 

KEY2 

KYBDLP 

LEADIN 

LOCK 

LPKEXT 

MASK ' ! 

MICE1 r 

MICE21 

MICE24 

MILLCNT 

MKEY5 

MOUSE 

MPRMTO 

MSPTR 

NOLOAD 

0LSIZ3 

PEKNOC 

PESCTB 

POESC 

P0S03 

P0S06 

POSOUT 

PRNT 

PROMPT 

RAMSIDE 



FFB3 


ATTRIB 


0010 


B0FF2 


FCBC 


B00T3 


FD6A 


B00T6 


FD6E 


BOOTER 


0006 


C.SASI 


19D4 


CHAROUT 


0007 


CMD 


F9A7 


CMDSTAT 


0006 


CNTCTR 


F03C 


CONFIG 


0003 


CPTBSZ 


0012 


CRTCALL 


F293 


CRTOFF 


0002 


CTRL 


19DB 


CTRTST 


07DC 


DRCTRY 


001B 


ESC 


0010 


FCRTOF 


18BB 


F0N1 


0002 


FONT 


0004 


FTAB1 


F319 


GOLD 


F01E 


HOME 


OOOF 


JTBLSZ 


OOOA 


KBOFF 


0004 


KBRDTB 


F072 


KEYS 


19B5 


KYPOS 


OOOA 


LF 


0061 


LOWER 


000 X 


LPKOFS 


1A7D 


MICE 


1AF8 


MICE12 


1B09 


MICE22 


1AB3 


MICEX1 


0006 


MINTRP 


F06C 


MNTREX 


1B38 


MOVTBL 


0007 


MSFLG 


F95D 


MSTBL 


0001 


O.TERM 


19B1 


PEKEX 


19B0 


PEKNOC 1 


FA1 1 


PHYTRK 


1927 


POS01 . 


193D 


POS04 


1955 


P0S07 


1966 


POTRAN 


F97A 


PRNTBL 


F339 


PRVATT 


F024 


READ 



> 

ex- 



position encoded Ktiyhoara hanalur 
Symbol Tab Its 



MACRG-ci 



0000 


REVO 


COOL 


F706 


RIGDPB 


190C 


oooa 


ROMOFS 


F9AE 


oaoo 


ROMSIZ 


0766' 


F9AA 


RPTCHAR 


F9BC 


F9F9 


RPTCLK2 


F94F 


1A30. 


RPTST 


0G1D 


1B1A 


RV1TBL 


1B23 


FCDC 


RXB01 


GS3D' 


00EB 


RXSIGL 


0552' 


0300 


SASIDL 


F9AC 


16EC 


SCR01 


16F2 


1BD6 


SCRPRT 


FQ16 


OOFF 


SETFLG 


F936 


FB67 


SHTAB 


0007 


FCB5 


SIGN2 


FG8C 


FCAA 


SIGN 4 


->FGEc 


FC5D 


; 'SIGNON 


-0060 


,0019 


' SrOFF 


,.F03F 


TB5C 


'SOOUT 


>F20E 


f^32 


;> SPRNT2 


0000 ' 


/JFF54 ■ 


'STEPRT 


1A66 


,FD89 


SWAP 


FD96 


00 1C 


SYSPIO 


-FF18 


¥800 " 


'TABLED 


034 A ' 


19FF 


"' TBLSEL 


18 1 E 


003F 


i:: TENTHS 


, F93C 


0020 ( 


: UPASC1 I 


: Q07B 


0002 


OPSSZ 


; 19E6 


0006 * 


USTRK 


• DOOD 


0010 


WD1797 


0004 


1078 


XRSIGN 


.0001 


0000 ; 


ZERO 





REV1 

RMPOSENG 
ROMRAM 
ROMTCP 
RPTCLK 
RPTEX 
RTAB1 
RV2T6i_ 
RXBOOT 
RXSIGN 
SAVE 
SCRG2 
SELECT 
SKFTLCK 
. SIDEROM 
SIGNS 
,SXGN6 
|S ? iGOFF 
s'lORDY 

,s;pact 

START 

STTfCTCl 

SWAP1 

SYSVEC 

TABLES 

TBXFER 

TICK 
! UPPER 

UP'STRK 
.VER 

XNEG 

XY r ' 



/ 3 .44 


09-Doc-BI 


2ZSA 


REV50 


r 9CG 


RMSIDE2 


F3EE 


ROMSIDE 


F940 


RPTBL 


FSED 


RPTCLKl 


FSA6 


RPTFLG 


C01E 


RTAB2 


"• £00 


RX1984 


1SS5 


RXCRT 


F9FC 


RXSIOO 


r ' EC 


SAVSTK 


1304 


SCR03 


F360 


SELTA6 


0001 


SHIFT 


FC77 


SIGN1 


FCA2 


SIGN3A 


FCCC 


SIGN7 


0005 


SIODPB 


195A 


, SI0X1 


F22F • 


;;SPRNT1 


0001 


STCNTR 


0003 


STRKUP 


G01D 


. SYSCTL 


FGOO 


TABL 


0159 


TABLEX 


FC5D 


TCA 


F93E . 


, TOCK 


F959 


UPS 


F95B 


. UPSX 


FO'03 -- 


WARM 


1 1C0 


XRBOOT 


0005 ..:■ 


. YNEG 



No Fatal error(s) 



U) 



ALPHEXC 


565 


567 


577* 






ALPHTST 


485 


562* 








ATTRIB 


100* 


265 








AVAILS 


94* 


1 130 








B0FF1 


45* 


199 


200 


205 


206 


B0FF2 


46* 


20 1 


202 


207 


208 


BOOTI 


1 198* 


1203 








BOOT2 


1201 


1209* 








BG0T.3 t 


1232 


1250* 








BOQTf \ } 


1252 r 


1268 


1271 


12 74 


1277 


BOOT& 


!28;5 !. 


128 j /# * 








BGQT6; 


13?5 


1327* 








BOQTB^ 


84* 
1290 


124^ i ' 
1293 


1246 


1254 


1258 


BOOTD 


1 2 1 r 


• 1334* 




, 




BOOTER 


12V6 


1332* 


i _?;.;'. 






BOOTS 


12 30 


1283 


1328* 






C.FIVE 


132* 


1102" 


1 105 






C.SASI 


133* 


1 lib' 








CAPTAB 


577 


895* 


897 


1389 




CDTAB 


537 


866* 


1390 






CHAROUT 


487* 


523 


718 






CHRSAV 


101 * 


24 2 








CLRS , s 


1 49V 


1 1 43 








CMC),/ 


460 ; 


'47'& 


972* 




i 


GMDB:, ' 


462 


;4#£* 








CMDB1 


536 


539 v 


542 


545 


547* 


CMOSTAT 


465 


473 


487 


971* 




CNFBYTE 


120* 


i^o 


192 






CNFGOFF 


110* 


'189 








tWTCTR 


500 


9 16* 








WRP 


593 


9 1 1 * 








fi)HFG 


86* 


1087 








CONFIG 


57* 


175 


1 132 


1321 




.fGQNIN 


52* 


1V&5 








CONST 


51# 


1 1 &3 








4 CPTBSZ 


578 


8§7* 








CPTEX 


896* 


1388 








CR 


15,2* 


1 156 


\im 


1 170 


1 178 


CRTCALL 


s 50* 


130B 


1309 






CRTD1 


' 66* 


254 








CRTD2 


67* 


247 


252 


■I:- 




CRTOFF 


76* 


1 141 








CTC1 


1 10* 


608 


626 






CTCVEC 


41* 


603 


606 


621 




CTRL 


538 


977* 








CTRLEX 


915* 


138 2 








CTRLTB 


499 


9 13* 


916 


1383 





1292 1314* 



1262 1266 1269 1272 1275 1278 1287 



CTRTST 


48 2 


498* 










CURSOR 


98* 


241 










DEVOUR 


1 183* 


1186 










DRCTRY 


1378* 












ENCNTR 


1 14* 


60 7 










EOT 


151* 


1 181 


1339 








ESC 


150* 


325 


351 


362 


1 144 




ESCSQ 


347 


354 


383 


967* 






ESCTSZ 


426 


432* 










FCRTOF 


49* 


1307 










FIVDPB 


90* 


1 1 12 










FNTRAN 


278 


289* 










FONl 


267 


272* 










FON2 


271 


279* 










FONCHK 


253 


261* 










FONT 


146* 


1272 










FONT.BL 


27.4 


306 " 


934* 


945 


1294 


1379 


FONTSZ ; 


275 


290 ? 


306 


307 


31 1 


945* 


FTAB1 


1 ,41 * 


125^ 


? ;\v> 








FTAB2 


142* 


125;7- 


12&1 








FTA63, 


1^3* 


128"^ 










GOLD - 


88 * 


iW 










GRffAD, 


60* 


268' 










NL^SEC. 


89,9!' ',' 


yow 


903* 








hom|.. 


55* 


1 22*8 


? ' > V 








WE,. 


.59,* 


387 










INT£TK 


§&* 


1047" 










JJiPUS?. 


IBq. 


7 74* 










kbdat; ," 


l6&* 


1004 










KBLP, ,', 


i2\* 


191' 










W),ff ' 


;>£* 


2 1 3 


2 14 


215- 






KBRrAMEND 




1075* 


1 129 


'■ .-• 






KB.RD 


i'ifts* 


1 £ r 6 ! 9 










KBRpTB 


.'l4il.* 


I27 f 8 










KBVEC. 


.' ,.4>> 


.* (2* 12 










key? ;;. 


.62* - 


106*4 










KEY5, ' 


'63* 


1065 










KTABSZ 


.#29* 


f^do* 










KYBDLP 


\ 6*1* 


2 14 


'^2 } r5 








KYPOS 


;46t 


' '47 4* 










LANG 


. 144* 


.yi&e 










L^ADIN 


• - $ 9 * 

' 153* 


; 245 










LF ,7: 


V 156 


1 157 


1 162 


1 170 


1 178 


LINBUF 


.' 97* 


'vi ? 9'7 










r^OM< 


"$M 


' ^62 


979* 








r f ,UQ^ER 


.,n$* 


7. ,, §ti^ 










T^PJp , 


.1395* 


- > . '■ • ■- 










:^KfXT , 


: 473 


rood* 










>.L : PKQFS 


" )23# 


! V^45 


l£61 


-' 12-82 


1286 





1295 



ox 

kPKYBD 769 * 7 76 1004* 

MASK 85* 248 

MICE 479 676* 

MICE1 690 704 728* 

MICEU 728 731* 

MICE12 730 736* ' 

MICE2 695 709 749,* 

MICE21 751 755* 

MICE22 754 756* 

MIC£23, , 75B 761* 

m\Ct^k\[' 76Q- ii)r * 762**"^ - 

MICEXjT ' 69a * ^ 7 15' 

MICEJ/ ; % 685 ' ' x 700#> r < 

MILLCNT, 597 980#^ 1054 1059 1062 

MINTRP ''"' 7 14 f 924* " 

MKEY2 \ 72* j 770* 777^ 

MKEY5 . '- 73*' 7 7 1 : ' > 778 

MNTREX 60* 1 185 ;: - > « f • 

MONITR 39* 51 52 53 54 55 56 57 58 59 60 61 

62 63 64 65 189 1300 1307 

MOlJSE 466 478 " 976* 

MOVJQL "' 785* ' ; . 

MPNEXT ! , 8'0* * 772 779 : ' " : '^ 

MPRMT(T\ 79* 773'= 780 

MSF.LQ , f 680 ' 923* f ; 

MSfilOV ;' 7 13 ;J 927* ^ ^ 

MSPTR' 6821 ' : 9 28* 

MSTBtl "' 468 " 512 679- 712 756 762 922* 1380 

NOCtfAR' 463* 514' 518 68 1 



NOtoAp 178 • lari 228* r 

O.XERfA 134*" 1 164 1 173 

OL^I*i f .," 98S* '■ ■' } '"-*-' 

OLsriii' io7&* i \-r)'" 

9E0^:[:'- 47*2 ! * ' 49U' M ' 

PE^D^::' 457** ? 1U0(T— C 

P EtfNpfc . t 46 7 : 4 7 fr'* r ' 4 7 7 

PE^NOCT 1 471'*' 699^ J 

PE^#ci2\_ 464* : 483°- 

PE^CtQ ! V 425 ? 430*;* A32\- 

PHYTRK '■', 93*' 1239^ ' • ;5t ^ 

PNEXT 6*4* 1 142" 1332 j 

POESC 378 ' 425V 1 * 

POS01 352 356* ^ 

P0S02 360 366* 

POS03 358 367* 

P0S04 349 370* 

P0S05 372 376* 

P0S06 375 379 382* 

P0S07 381 383* 



J> POSEND 33d 34b* 

"D POSOtJT 326 .129 353 363 368 374 377 385* 4 13 4 15 

"O POTRAN 3 19 357 400* 

'"> PRBOFF 65* 1327 



3 



PRNT 147* 1275 

PRNTBL 400 950* 965 1378 

PRNTSZ 401 405 965* 1295 

PROMPT 78* 

PRVATT 77* 269 

PTR01 409 417* 

RAMSIDE 1008 1029* 1072 ' 

READ 56* 1243 1247 1255 1259 1263 1288 

REVO 1 16* 177 

REV1 117* 182 203 1135 1324 

REV50 118* 179 

RIGDPB 9 1* 1111 

RMP0SEND 336* 107 1 

i RMSI0E2 V023 10^1* 

JRQMOFS !;V22* '205 206 207 208 779 780 1134 1195 1196 1323 

RPM^AM .984* 1021 1030 



r ^gMsiDE ;ij0p5 r Wi9# 1070 

; 4PMS I'Z '! '."' ?3B * 'i '369 



TOP ;i368# ' i'^69 

t %P\Y$L ! .' 592 ■' 9'ti6* • ^91 1 1 385 

. flgJCHAR t 508 J -98 1* 1063 

/. RpTCLK , /ed5 '-' V046* 

,,') RPTCLK1 ] - ? V057 J ' 1061* 

.. 4PJ.CLK2 ' 1012 1053 1060 1065* 

"...Pf>tl|x } f '9i0tf ' J 1384 .*»'..>•' 

^frRTJFLG j '615 . !i 982# ^051 

. RPTST '■*' 486 ''692* .' >. : 

., RT,*AB 1 1 39* •"' 1^41 ' .1-245 

..\RJAB2 ' ; |40* T282 

RVJTBL 18 1 >769* 774 

} My213L ••'^84 ? 7?6* 

." ftXl'&84 * "37 * - 160 *-•'; 

: '.RXBtll 1 1 i ^49 1265* 



REBOOT 199 200 201 202 205 206 207 208 1194* 

RXCRT ,f> '241* 1308 V309 

RXSIGL ^25 1 187* * 

Wx'SlGN ?rl 2*23 V085* 

RXSIOO 1069* "1302 1303 

SASIDL 135* VI 13 

SAVE x 604 ;N,; 620 a \ .983* 



'^VSTK ! '*40* - 1 r C>46 

-ftffOl ^^309 ]u 315 

SCR02 *-■'*'* 317 ^3 19 

S^R03 ( ' '"'320 i ; -'323 

$£RPRT ;' Li 301* . 1312 1313 



2 - f 3 1 7 '^3 19* 

(^03 { ,.;'-'S20 * ; '323 329* 



cn 



SELECT 


54* 


1219 




SELTAB 


89* 


1 1 17 


1350 


SETFLG 


128* 


602 




SHFTLCK 


543 


098* 


1387 


SHIFT 


535 


978* 




SHTAB 


534 


546 


837* 


SIDEROM 


985* 


1022 




SI6N1 


1 100* 


1 100 




SIGN2 


1 104 


1 107* 




SI6N3 


1090 


11 10* 




S1GN3A 


1 1 19* 


1 124 




SIGN4 


1 109 


1 1 16 


I 125* 


SIGN6 


1 138 


1 148* 




SIGN7 


1136 


1 138* 




SIGNON 


1087* 


1 187 




SIGOFF 


70* 


1 134 


1 137 


SIODPB 


107* 


390 




SIOFF 


47* 


1300 




SIORDY 


58* 


386 




SIOX1 


386* 


388 




SOOUT 


204 


212* 




SPACT 


87* 


622 




SPRNT1 


74* 


1310 




SPRNT2 


75* 


332 




START 


159* 


1369 




STf.NTR 


1 15* 


625 




STEPRT 


96* 


1 108 




STPCTC1 


470 


615* 




STRKUP 


513 


925* 




SWAP 


1215 


1318 


1348* 


SWAP1 


1357* 


1364 




SYSCTL 


105* 


1093 


1095 


SYSPIO 


106* 


1020 


1031 


SYSVEC 


42* 


43 




TABL 


540 


808* 


917 


TABLED 


92* 


789 


802 


TABLES 


788 


801* 


1 125 


TABLEX 


790 


917* 




TBLSEL 


484 


532* 




TBXFER 


183 


105* 




TCA 


44* 


2 24 


227 


TENTHS 


901 


902 


904* 


TICK 


596 


099* 


1386 


TOCK 


90 \tt 


106 1 




UPASCII 


126* 


568 




UPPER 


124* 


564 




UPS 


515 


919* 


921 


UPSSZ 


516 


5 20 


921* 


UPSTRK 


481 


5 12* 





139 1 



1088 1097 1 101 

929 1392 

986 1076 1126 1279 



1086 1195 



1381 



U VER 2B# 1155 1155 1155 1394 



UPSX 


920* 






USTRK 


400 


9 7 3* 




VER 


28# 


1 1 55 


1 155 


WARM 


53# 


1 184 




WD 179 7 


1QB# 


1099 


1 107 


XNEG 


689 


975# 




XRBOOT 


71# 


1323 


1326 


XRSIGN 


69* 


1 134 


1 137 


XY 


469 


684 


757 


YNEG 


703 


974* 




ZERO 


127# 


459 


729 



759 761 926# 
740 
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U57,U58ROMs 


43 






Configuration sector 


225 






Enable, Disable 


189 






General 


183 






Set mode 


191 


A 




Auto-repeat keys 




• 




■ ASCII 


195 






-LPK 


205 


A66 Control Switch ' 


249, 250 






Abbreviations, list of 


N1 






Access cover 








-40CPS 


238,239 






-20CPS 


227,228 






Access times, disk 


207-211 


B 




Accessible 1 -second 








interrupt 171 


,174,B1 






Accessing BIOS 


151 


BDOS, General 


5 


Allocation, CRT RAM 


45 


BIOS Entry points 


A2-A5 


Alpha lock key 




Banked Physical Driver listing App. 1 


-ASCII 


197 


Device Initialization 


133,134 


-LPK 


205,206 


Execute Physical Driver 


161,162 


Altitude requirements 


18 


Op.Sys.lnt. 152,174-176,178-181 


Application programmii 


ng 41, 


Physical Driver Address Table C3 


42,151,152, 


155,170 


Programmable Functions 


170 


ASCII keyboard 




Backspace or cursor left 


187 


ROM. How it Works 


133 


Bank switching 




Dimensions 


13 


Example 


D4 


Product Codes 


3 


System PIO 


134 


General 


195-199 


. Z80-A Example 


171,172 


CTRL key 




Banked physical driver 




Alpha lock key 




listing 


11-112 


Auto-repeat keys 




Basic monitor calls 


D1-D3 


Function key priority 


Baud rate 




Function key uses 




I/O Channel 


135 


Key code chart 




Command 


144 


Main key array 




Generator 


136 


Numeric key pad 




Host Terminal 


145 


Repeat keystations 




Port assignments 


156 


Asynchronous, General 


. 135 


Printer port 


135 


I/O Port # 


157 


Table 


K1 


Port selection 


42 







Index 



Bell (tone, speaker) 




Business graphics, (desc) 


16,17 


Control code 


187 


CRT control 


183 


Description 


47 


CRT Controller 


43 


Port assignment 


157 


CRT entry points 


158-160 


BIOS 




CRT font selection 


43,134 


CP/M-80 2.2 


5,151 


Attributes 


44 


CP/M-861.0 


151 


Attribute selection 


7 


Accessing 


151,152 


Configuration sector 


225 


Cold boot 


A1 


Display specification 


15 


Console input 167,1 68, A2 


Graphics mode 




Console output 


168,A2 


-40CPS 


243 


Console status 


167.A2 


- 20 CPS 


232 


Entry vector table 


A1-A5 


Memory allocation 


45 


Example 


152 


Prog, considerations 


186-193 


Home disk 


A2 


Scroll register 


46 


lOBYTE-directed I/O 


167-169 






Interface 


151,152 


. 




Jump table 


151 






List device 153,154,167-169 






List output 


A2 






List status 


A5 


c 




Printer output (IOBYTE) 


168 






Printer status (IOBYTE) 


169 






Punch output 


A2 


CCP, Description 


5 


Read sector 


A4 


CP/M-80, (disk contents) 


6-9 


Reader input 


A2 


Accessing BIOS 


151,152 


Sector translate 


152,A5 


Digital Research files 


6,7 


Select disk 


152, A3 


Entry Vector Table 


B1 


Set DMA address 


A4 


Prog, considerations 


A1-A5 


Set sector 


A3 


Xerox files 


7-9 


Set track 


A3 


CP/M-86, (disk contents) 


9,10 


Vectors 


151 


Accessing BIOS 


151,152 


Warm boot 


A1 


Digital Research files 


9,10 


Write sector 


A4 


Xerox files 


10 


Bit mask, keyboard 


225 


CPU, (general) 


2 


Break switch, printer 


240 


ROM 


133,134 


Bus, system 




Description 


41-44 


Connector 


27 


Go To Command 


140 


Electrical/environmental 


18 


System display 


183 


Specification 


28-32 


CRT, (general) 3,158, 183 






CRT output 


158 






RAM 


41,45 



Index 



Block move 


160 


Direct CRT display 


160 


Entry points 


158-162 


Fast CRT output 


159 


Font selection 


43,134 


IOBYTE 


167,168 


Read sector 


162 


Select media format 


161,162 


Set direct CRT cursor 


159 


Write sector 


162 



CRT controller, (general) 43, 44 

Attributes 16,17,44 
Control signals (sync & video) 43 

Design 16,17 

Font ROMs 43 

Functional description 1 6 

CTC (Counter Timer Circuit) 42, 1 34 

Cabling requirements: 

-40 CPS 252 

-20 CPS 236 

Capacity, disk 207-211 

Carriage return, disp. code 188 
Carriage movement 

-40CPS 242 

-20 CPS 231 

Caution, rigid disk 47 

Centronics Interface 2, 43, 1 35 
Channel A 

SIO Controller 135,136 

Description 42 

Entry points 165 
Channel B 

SIO Controller 135,136. 

Description 42 

Entry points 163,164 
Character codes, display 186-193 

Character delete 192 

Character devices 1 53, 1 54 

Character insert 192 
Character $ets (information) 

ROM 43 

Specifications 15,16 



Character sets (pictures) 

Graphics 185 

Text 184 

Character spacing 

-40 CPS 251 

-20 CPS 235 

Clear screen 188, 190 

Clear to end of line 188, 193 
Clear to end of screen 1 88, 1 93 
Clock 

8086 speed 2 

1 -second interrupt 174 

Z80-A speed 2 

Code charts K1-K2 

Baud rate table K1 

Cold boot 151, A1 

Cold start 177 

Cold start loader listing G 1-G6 

Command codes: 

40 CPS 242-244 

Carriage movement 

Control codes 

Hex codes 245 

Margins & formatting 

Miscellaneous commands 

Paper movement 

Printing 

Remote Diagnostics 

WP commands 
20 CPS 231-233 

Carriage movement 

Control codes 

Hex codes 234 

Margins & formatting 

Miscellaneous commands 

Paper movement 

Printing 

Remote Diagnostics 

WP commands 
Command set (monitor) 137-149 
Summary table 137 

Baud rate 



Index 



Copy memory 

Display memory 

Extended memory test 

Fill memory 

Goto 

Host Terminal 

Input 

Load from disk 

Modify memory 

Output 

Protocol 

Read disk sector 

Typewriter 

Verify memory block 

Write disk sector 

Communications: 

SIO Controller 135.136 

SIO Ports, description 42 

Baud rate command 1 44 

Comm channel (Port #s) 156,157 

Connector (J4) 19 

Host Terminal 144-146 

IOBYTE 167,168 

Input Data 165 

Input ready status 1 65 

Output status 165 

Port (J9), description 5 

Protocol command 1 48, 1 49 

Settings, 40 CPS Printer 249,250 

Strapping Options 25,26 

Configuration sector 225, 226 

Configuration status 181 

Connectors 

(see Hardware Connectors) 

Console devices 153, 154 

Console input IOBYTE 1 67 

BIOS entry point A2 

Console output IOBYTE 168 

BIOS entry point A2 

Console status IOBYTE 1 67 

BIOS entry point A2 



Control codes , display 1 86- 1 88 

Backspace or cursor left 

Bell (tone) 

Carriage return 

Clear to end of line 

Clear to end of the screen 

Clear screen and home cursor 

Cursor downor line feed 

Cursor left or backspace 

Cursor right 

Cursor up 

Display next character direct 

Escape 

Home cursor 

Horizontal tab 

Line feed or cursor down 

Restore previous attribute mode 

Set cursor character 
Control key, keyboard 

-ASCII 197 

- LPK 206 

Control panel indicators - 

40 CPS 239, 240 

Break switch 
Cover 
Form feed 
Here is switch 
Line feed 
Overflow 
Parity 

Power indicator 
Print chk 
Printwheel select 
Reset 

Ribbon/paper 
Scroll 

Spacing select 
Control panel. switches - 

20 CPS 228 

Form feed 
Line feed 
Pause 



Index 



Power indicator 




Get Config Status 181 


Reset 




Host Terminal 144-146 


Control sequences, CRT 




Pass 8 bits/keyboard 190 


Codes 


187,188 


Pass 7 bits/keyboard 190 


Table 


186 


Data format, (LPK) 200,201 


Copy memory, 




Daughter board 47 


(Monitor Command) 


140 


ROSR monitor 


Counter Timer Circuit 


134 


SASI interface 


Cover switch, (40 CPS) 


240 


Floppy connectors 38 


CRT memory block move 


160 


J1 connector 19 


CRT output 


158 


Rigid connector 39 


FAST CRT output 


159 


Devices, character & physical 


CRT RAM 




assignments 153, 154 


Memory allocation 


45 


Device names, logical 


Scroll register 


46 


& physical 153, 154 


CTRL key, keyboard 




Diablo printers 


-ASCII 


197 


-40 CPS (630) 237-252 


-LPK 


206 


- 20 CPS (620) 227-236 


Cursor, (general) 


186 


Diagnostics, remote printer 


Cursor keys 




-40 CPS 244 


-ASCII 


195 


-20CPS 233 


-LPK 


200 


Digital Research 


Cursor control codes 




CP/M-80 files 6-9 


Up, Down, Left, Right 


187. 


CP/M-86 files 9,10 


Host Terminal cursor control 147 


Dimensions 13 






8" Floppy disks 






8" Rigid disk 






5£" Floppy disks 






40 CPS Printer 






20 CPS Printer 


D 




ASCII keyboard 
Display/Processor 
Low profile keyboard 


DC system power 


18 


Direct CRT display 160 


DTR,SIO default 


135 


Disable attributes 189 


Daisy-chain 




Disk access connector (J 1 2) 33 


SIO Controller 


42 


Description 34-37 


Rigid/floppy interface 


47 


Disk connector (J 1) 19 


Data bits 




Floppy 38 


SIO defaults 


135 


Illustration 20 


Baud rate command 


144 


Rigid 39 


Configuration sector 


225,226 


Disk drive format 14 



Index 



Disk drive storage 


14 


Dimensions 


13 


Disk drives 


3,5 


Graphics character set 


185 


Access times 


207-211 


Programming considerations 


186 


Caution 


47 


Text character set 


184 


Connector 


47 


Display, control codes 186-188 


Dimensions 


13 


Backspace or left cursor 




Specifications 


207-212 


Bell (tone) 




Access times 




Carriage return 




Bytes per sector 




Clear to end of line 




Capacity 




Clear to end of the screen 




Encoding method 




Clear screen and home cursor 




Formats 




Cursor down or line feed 




Heat dissipation 




Cursor left or backspace 




Latency 




Cursor right 




Power dissipation 




Cursor up . 




Recording density 




Display next character direct 




Sectors per track 




Escape 




Transfer rates 




Home cursor 




Voltage requirements 


Horizontal tab 




Disk driver 




Line feed or cursor down 




Execute physical 


161,162 


Restore previous attribute mode 


Firmware 


47 


Set cursor character 




Media identification 


213 


Display, functional desc 


16 


Disk mapping 




Display, escape codes 189-193 


Description 


48 


Display manipulation 186, 


189 


Device mapping 


153,154 


Display memory command 


138 


Drive mapping table 


C2 


Display next character 


188 


Interleave 


223,224 


Display/Processor 13, 183-193 


Disk parameter block 




Display specifications 


15 


(DPB) 


214-218 


Pixel resolution 




8" Floppies 




Refresh rate 




8" 10 Mb rigid 




Video bit rate 




Si" Floppies 




Video rate 




Translate tables 




Documented system 




Disk parameter header 




storage C1 


,C2 


(DPH) 


213-218 


Double density, 




Select media format 


161 


Select Media Format 


161 


Value(s) returned 


162 


Downcounter 


42 


Display 3, 15-17, 183-193 


Drive mapping tables 


C2 


Attributes 


16,183 


Drive selection 




Business graphics 


16 


PIO Controller 


134 


Character mode 


183 


Description 


43 



Index 



Dual parallel port 




Printers (40 & 20 CPS) 


252,236 


PIO Controller 


134 


DC 




Description 


43 


Disk drives 


207-211 






Display 


15 






Expansion slot 


18 



8" Disk access times' 207-211 

8" Drives, dimensions 13 
8" Floppy disks 

Double-sided 210,216 

Interleave 223,224 
Rigid 211,217,218 
Single-sided 209,215,216 

Track formats 221,222 

820-II Device mapping 

General 153,154 

Character devices 

IOBYTE 

Logical device names 

Physical device names 

Physical devices 

8086 

I/O Port assignments 156 

CPU Port # 157 

Configuration status 181 

Description 2,6,48 

Dual CP/M-80/86 158 

Host Terminal 147 

Lock instruction 155 
Logical/Physical device mappingl 54 

Memory expansion PWB 1 32 

Operating system files 9-1 1 
Operating system interface 151 

Schematics 128-132 

System bus connector 27-32 

Electrical Requirements 

AC 13 

820-11-1 6/8 display 
Disk drives 



(See also Hardware Connectors) 
Electrical interface 

40 CPS Printer 246-250 

A66 control switch 

ElA interface 

HPR05 circuit board 

Dipswitch module A 
Dipswitch module B 
Enable attributes 189 

Enter key, unique codes 204 
Entry points, CRT 158-160 

Entry vector table A1-A5 

Environmental req. 18 

Altitude 

Humidity 

Temperature 
Escape codes 189-193 

Character delete 

Character insert 

Clear screen 

Clear to end of line 

Clear to end of screen 

Disable attributes 

Enable attributes 

Line delete 

Line insert 

Pass 8 data bits from keyboard 

Pass 7 data bits from keyboard 

Position the cursor 

Set blink attribute 

Set graphic mode 

Set inverse video 

Set low intensity 
Escape sequences 

' CRT 189-193 

40 CPS Printer 242,243 

ROSR translations 43 



Index 



20 CPS Printer 


221.222 


Power indicator 


239 


Etch 1 CPU 




Specifications 


251,252 


J9 - strapping options 


25 


FIFO 


48, 166 


Schematics 


109-116 


Variables 


C1 


Serial I/O Ports 


42 


Fast CRT output 


159 


Etch 2 CPU 




Fill memory command 


139 


J9- strapping options 


26 


5i" Disk access times 


207, 208 


Keyboard FIFO 


48,166 


5i" Drives, dimensions 


13 


Schematics 


117-124 


5V Floppy disks 




Serial I/O Ports 


42 


Disk Parameter Header 


213 


Even parity, host terminal . 145 


Double-sided 


208,215 


Examples 




Interleave 


223,224 


Bank switching 


D4 


Single-sided 


207,214 


Host Terminal 


145 J 46 


Track formats 


219.220 


List device status 


152 


Floppy disks 


213-226 


Monitor calls/BASIC 


D1-D3 


Connector (J1) 


19 


Protocol command 


148,149 


Illustration 


20 


Start/Stop 8086 


155 


Disk parameter block (DPB)214-218 


Z-80A Assembly Language 171-173 


Disk parameter header (DPH) 213 


Execute physical driver 


161, 162 


Interleave 


223,224 


Expansion slot, (genera 


I) 6 


Track formats 


219-222 


Electrical 


18 


Font generator, I/O Port # 1 57 


Extended memory 




Font ROMs (U 57 &U 58) 


43 


test command 


139 


Font selection 43 


I, 44, 134 






40 CPS Printer 


249,250 






Form feed 








-40CPS 


239 


F 




-20 CPS 


228 






Format, floppy disks 


219-222 






Front cover switches 




4.03 ROM 


135 


-40 CPS 


238,239 


40 CPS Printer 


237-252 


- 20 CPS 


227,228 


DC1/DC3 


237 


Function key 




HPR05 




Priority -asgi 


196 


Description 


237,238 


-LPK 


205 


Interface 


247-249 


Uses. -ascii 


196 


Access cover 


238,239 


-LPK 


205 


Command codes 


242-244 


Functional description 


4,5 


Cont. panel switches 


239,240 


BDOS 




Electrical interface 


246-250 


BIOS 




Font selection 


249,250 


ccp 




Operating codes 


241 


ROSR 





Index 



Operating systems 




- Interface 


33 


Ports 




Floppy disk (J 1) 




System monitor - ROM 




- Connector 


19 






- Illustration 


20 






- Interface 


38 






Keyboard connector (J2] 


I 19 






Parallel port (J8) 




G 




-Connector 


23 






- Illustration 


21 


• 




-Picture 


24 


General Purpose PIO 




Powersupply(J5&6) 


22 


Ports A &B, Description 


43 


Printer connector (J3) 


19 


Specifications 


135 


Rigid disk (J1) 




Get address of time- 




-Connector 


19 


of-day variables 


180 


- Illustration 


20 


Get config status 


181 


-Interface 


39 


Get disk map table 




System bus connector (J 13) 


address 178, 


,179 


-Connector 


27 


Go to command, 140, 


,141 


- Description 


28-32 


Graphics character set 


185 


Video connectors (J7) 


22 


Mode 


183 


Hardware description 

Disk drives 
Display 
Keyboards 
Printers 


2-4 


H 




System board 








Hardware handshaking 


148 






Hardware interface 


5,6 


HMI/VMI 




COMM port 




-40CPS 


241 


Disk drive 




-20CPS 


230 


Expansion slot 




HPR05desc.-40CPS 237, 


,238 


Keyboard 




Hardware connectors 1 9-39 


Parallel port 




COMM connector (J4) 


19 


Printer 




COMM port(J9) connector 


Hardware scrolling 


46 


- Etch 1 CPU 


25 


Head Step Rate, 




-Etch 2 CPU 


26 


Configur.com 


8 


Daughter board 




Configuration sector 


225 


-Floppy 


38 


Here Is Switch, (40-CPS) 


239 


-Rigid 


39 


Hex codes 




Disk access (J 12) 




-40CPS 


245 


- Description 


34-37 


-20CPS 


234 



Index 



Home cursor (ESC code) 1 88 
Home disk, BIOS A2 

Horizontal Motion Index 

-40CPS 24V 

-20CPS 230 

Horizontal tab - display 1 87 

Host computer 144 

Host Terminal mode 144-148 

Baud rate 

Channel 

Command set 

Data bits 

Monitor output command 

Option Summary ! 

Parity 

Port 

Stop bits 
Humidity requirements 18 



I/O Channel, 

setting baud rate 144 

IOBYTE 

CP/M-80. device mapping 153 

CP/M-86, device mapping 154,155 

Console input 167 

Console output 168 

Console status 167 

Directed I/O 167-169 

Printer output 168 

Printer status 169 

Input command (Monitor) 141 

Input/output 

Port assignments 156,157 

8086 

CRT, 

CTC 

GP-RIO channel A 



GP-PIO channel B 

SIO channel A 

SIO channel B 

Z80-A 

Baud rate 

Double density select 

Font generator 

Scroll register 

Single density select 

Speaker 
Interleave, (floppy disks) 223, 224 
Interrupt mode 2 41 , C1 

Interrupt vectors C1, G2 

CTC 

GP PIO 
SIO 
Disk 
System PIO 

Interrupts 

CTC 134 

GPPIO 135 

SIO 135 

Daisy-chain vectoring 42 

Disk . 34-37 

Expansion slot 28-32 

System PIO 1 34 



J1 (Disk access) 19,20,38,39 
J2 (Keyboard) 19 

J3 (Printer) 19 

J4 (Communications) 1 9 

J5 (Power supply) 22 

J6 (Power supply)' 22 

J7 (Video) 22 

J8 (Parallel connector) 23, 24, 43 
J9 (Parallel port, Etch 1) 25 



10 



Index 



J9 (Parallel port, Etch 2) 26 

J11 (Option connector) 43, 135 
J1 2 connector 33-37 

J13 connector 27-32 

Jump vectors 151, 158, A1-A5 



Key code chart: 




-ASCII 


198,199 


-LPK 


202-204 


Keyboards 3, 5, 


195-206 


FIFO variables 


C1 


ROM 


133 


ASCII 


195-199 


Bit mask 


224,225 


Connector (J2) 


19 


Data input 157-165.C1 


Device Mapping 


153,154 


Dimensions 


13 


Enter key. unique codes 


204 


Handler 


201 


Input (System PIO) 


43,166 


Input channel 


134 


Interface (FIFO variables) 


48.C1 


Low profile 


200-206 


Product Codes 


3 


Status 


166 


Translation tables 


201 



Line feed switch (40 CPS) 239 

Line feed or cursor down 187 

Line insert 192 

List device 153,154,167-169 

List output, BIOS A2 

List status, BIOS A4 

Listings: Appendix 

BIOS jump table H 

ROM . . E 

Banked physical driver I 

Cold start loader G 

Macros & Symbols F 

Position-encoded kybd handler J 

Load from disk command 1 42 

Logical device names 

820-II 153 

16/8 154 

Logical to Physical Disk 

Mapping Table 178, 179, C2 
Logical/physical 

translate tables 213 

Low profile keyboard 200-206 

Auto-Repeat 

Cursorkeys 

Data format 

Dimensions 

Enter key. unique codes 

Function key uses 

Key code chart 

Keyboard handler* 

Main key array 

Numeric key pad 
Low profile ROM 133, 134, 204 



M 



LST 153,154, 167-169 

(device mapping) 
Line delete ■ 



MS-DOS 10,11,151 

192 Macros & Symbols listing F1-F24 



Index 



11 



Main key array 




Protocol " 




- ASCII 


195 


ROSR 




-LPK 


200 


Read disk sector 




Margin & formatting codes 


Typewriter 




-40CPS 


242 


Verify memory block 




-20CPS 


231 


Write disk sector 




Memory allocation 


44,45 


Monitor entry vector table 


B1 


Memory banks 


41-43 


More interrupt vectors 


C2 


Memory contents 


138 






Memory pointers 


C2 






Memory size: RAM/ROM 


2 







Microsoft 10,11,151,01 

Miscellaneous functions 177-182 

Cold start 

Get configuration status 

Get disk map table address 

Get TOD variable 

Start screen print 

Warm start 
Miscellaneous printer codes: 

-40CPS 243 

-20CPS 232 

Mode 2 Interrupt Vectors C1,C2 
Modem 42,135, 136 



N 



Numeric key pad 

-ASCII 
-LPK 



195 
200 



(channel, baud rate generator) 


i 


1-second interrupt 170, 174 


Modes of operation 




145 


Offset, display 46 


(Host terminal) 






Operating codes: 


Modify memory 


138, 


139 


-40CPS 241-244 


Monitor calls in BASIC 


D1-D3 


-20CPS 230-233 


Monitor commands 


137-149 


Operating environment 13 


Summary table 




137 


Operating mode switches: 


Baud rate 






- 40 CPS 238-240 


Copy memory 






-20CPS 227-230 


Display memory 






Operating System 


Extended memory test 






General 4,5 


Fill memory 






Interface 151-182 


Go to 






Output codes, keyboards: 


HostTerminal 






-ASCII 198,199 


Input 






-Low Profile 202-204 


Load from disk 






Output command 141, 142 


Modify memory 






Output ports 134-136 


Output 






Output status, comm 165 
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Index 



Overflow Switch (40 CPS) 240 



PIO, (general) 43,134, 135 

Paper movement, printer: 

-40 CPS 243 

•20 CPS 231 

Parallel I/O controller 134, 135 

Bank switching 

Floppy drive select 

Floppy side select 

Font selection 

Keyboard input channel 
Parallel port 2, 6, 43 

Connector 23,24 

Parallel printer 43, 135 

Parity 

Host Terminal 145,146 

40 CPS switch 240 

20 CPS switch 229 

Pass upper bit of data 

from keyboard 190 

Pause switch (20 CPS) 228 

Physical device names 

820-11 153 

16/8 154 

Physical Disk Interleave 223, 224 
Physical driver 

Address table C3 

Request block 1 6 1 , 1 62, 1 76, C3 
Physical format, disk 

drives 219-222 

Physical to Logical Device 

Mapping 167 

Pixel resolution 15 

Ports 

Communication 4,5,19,25,26,135 
General 4 

Parallel ■ 23,24 



Printer 4,5,19,135 

Position-encoded keyboard 

Handler 201 

Listing J1-J38 

Position the cursor , 191,192 
Power indicator: 

-40 CPS 239 

- 20 CPS 228 

Power on sequence . 133-136 

Power supply (J5 & 6) 22 

Print Chk switch (40 CPS) 240 

Printers, general 4, 227-252 

A66 Control switch 249, 250 

40 CPS 237 

20CPS 227 

Baud rate command 144 

Baud rate generator 1 36 

Buffer 238,251 

Channel 42 

Connector (J3) 19 

Dimensions " 13 

Entry points 163,164 

Output 163,164 

Overview 163 

Port 42,43.135.136 

' Status 163 

Printing commands 

-40 CPS 243 

- 20 CPS 232 

Printwheel selection (40 CPS) 238 
Product code numbers 3, 4 

Programmable 

functions: 170-176 

1 -second interrupt 

Processing while I/O pending 

Sample program 

Soft disk error 

Soft error recording 

System exit points 

Programming considerations: 

BIOSA1-A5 

CRT Control codes 187,188 



Index 
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CRT Escape codes 189-193 

Display 186-193 

Escape sequences 

-40CPS 242,243 

-20CPS 231,232 

Printer control codes 

-40CPS 245 

-20CPS 234 

Proportional spacing (HMIA/MI) 

-40 CPS 241 

-20 CPS 230 

Protocol command 148, 149 

XON/XOFF 

Hardware handshake 
Serial printers 

Punch output, BIOS A2 



RAM, CRT 41-46 

Attributes 

Driver 

Font Selection 

Memory Allocation 

Offset 
• Power on 

Refresh RAM 

Scroll Register 
ROM 5,41,42,133-136, 158 

ROM listings E1-E110 

ROM/O.S. Interface 158 

ROSR 5,41,44,47,133-136,170 
RS232 (See Comm port) 
RTS 135,136 

Read disk sector command 1 43 
Read sector 162, A5 

Reader input A2 

Real Time Clock 174 

(See also Clock) 



Refresh RAM' 43 

Memory 183 

Rate 15 

Remote Diagnostics: 

I -40CPS 243,244 

-20CPS 232,233 

Repeat keystations: 

-ASCII 195 

- LPK 205 

Reserved 

ASCII Keys 198,199 

Low Profile Keys 202-204 

Ports 157 

'Tracks 214-218 

Reset Switch (40 CPS) 239 

Reset, Power on 133-136 

Resident monitor 

commands 137-149 

Resolution, screen 15 
Restore previous attribute 

mode 187 
Ribbon/Paper switch (40 CPS) 240 

Rigid disk conn. (J1) 19, 20, 39 



7 data bits (SIO controller) 110 
1797 - Western Digital 279-302 
6-8k ROM 2, 42 

16/8 physical device mapping 

153,154,167-169 

Application programs 

Communication channel 

IOBYTE 

Logical device names 

Physical device names 

Physical devices 
64k RAM 2, 42 

ROSR monitor 
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Z80-ACPU 

SA 1403 

Processing while I/O pending 174 
Soft Error Recording 1 76 

SA 1403D controller 254-278 

SA400L 207, 214, 219, 220.223, 224 
SA450 208.215.219,220,223,224 
SA800 209,215,216,221,224 
SA850 210,216,221,224 
SA1 004 21 1,217, 218, 223, 224 

SASI interface 47 

SIO, (general) 42 

SIO Channels: 

-A 135,136 

-B 135,136,163,164 

SIO controller 42,135,136 

SIO-B 

Input data 163 

Input ready status 163 

Output data 163 

Output ready status 164 

Sample programs 

Z80-A assembly 171-173 

Monitor calls -BASIC D1-D3 

Bank switching D4 

Schematics 109-132 

Screen attributes - see Attributes 

Screen codes 186-193 

Screen print 182 
Screen resolution: 

Description 16 

Specification 15 

Scroll switch (40 CPS) 239 

Scroll register . 45,46 

Hardware scrolling 

Offset 

Sectors per track 207-211 

Sector translate, BIOS A5 

Table 213 

Vector 152 

Sectran 1 52, A5 

Seldsk 152, A3 



Select media format 161 

Serial I/O Controller 42, 135, 136 
Async modem port 
Baud rate 
Channel B 
Printer port 
Set blink attribute 191 

Set cursor character 187 

Set DMA address A4 

Set direct CRT cursor 159 

Set graphic character 1 9 1 

Set inverse video 191 

Set low intensity 191 

Set sector A3 

Set track A3 

Shugart-1403D 253-278 

Side selection 43,134, 161 

Single density 161 

Skewing 223, 224 

Soft disk error 176 

Soft error recording 176 

Spacing select (40 CPS) 238 

Speaker (bell, tone) 47, 1 57 

Specifications 

-820-II&16/8 13-16 

Dimensions 
Disk drive format 
Disk drive storage 
Display 
Electrical 

Operating environment 
Specifications 

40 CPS 251,252 

Cabling requirements 
Character set 
Character spacing 
Power requirements 
Print buffer 
Print line 
Printwheels 
20 CPS 235, 236 

Cabling requirements 
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Character set 
Character spacing 
Power requirements 
Print buffer 
Printline 
Printwheels 

Start screen print 182 

Storage capacity 207-2 1 1 
Strapping options, 

Comm port 25, 26 

Strobe, printer 135 
Synchronous 

I/O Port # 157 

Port selection 42 

System board 2 

System bus 18,48 

Connector (J 13) 27-32 

System configuration 181 

System display 183-193 

Graphics character set 

Programming considerations 

Text character set 

System exit points 170-176 
System monitor, 

ROM 4, 133-136 

System PIO 43, 134 

System storage C1 



Operating codes 
Operating mode switches 
Specifications 

Vertical motion index (VMI) 
Temperature req. 18 

Text character set 1 84 

Theory of Operation 41-48 

6-8k ROM memory 

64k RAM 

CPU 

CRT controller 

CTC 

PIO Controller 

SIO Controller 

Bus expansion 

Daughterboard 

Dual parallel ports 

Memory allocation 

Parallel keyboard interface 

Scroll register 

Serial I/O ports 

Speaker 

Time constant 
Time-of-day and 

timer variables 47, 180, C4 
Timer variables 180, C4 

Tone generator 47, 1 57 

(speaker, bell) 
Track format, disk 

drives 207-211 

Transfer rates 207-211 

Typewriter command 144 



20 CPS Printer 








Dimensions 
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General 227-237 


V 




Cabling requirements 








Command codes 




Vector table 


B1 


Control panel switches 




Verify command 


140 


Front cover switches 




Vertical Motion Index: 




Horizontal motion index (HMI) 


-40 CPS 


241 


Power indicator 




. -20 CPS 


230 
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Video bit rate 
Video connector (J7) 
Video rate 



15 
22 
15 



W 



WD1797 174,176,279-302 


Warm boot 


A1 


Warm start 


177 


Western Digital 




General 


174,176 


Reprint 


279-302 


WP commands: 




40 CPS printer 


243 


20 CPS printer 


232 


Write disk sector com 


imand 143 


Write sector, BIOS 


162,A4 



Z80-A 2,41,42,47-108 

133, 158, CI, C2 

Assembly language ex. 171-173 

Zilog Reprint ., 49-108 



XON/XOFF protocol 


148 


Xerox files 




CP/M-80 disk 


7-9 


CP/M-86disk 


10 


Xtended memory 




test command 


139 
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